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Preface 



The great mathematician Gottfried Wilhelm 
Leibniz perhaps stated it best when he said ; "It is 
unworthy of excellent men to lose hours like 
slaves in the labor of calculation." Before there 
were computers, virtually every aspect of elec- 
tronic circuit design and analysis was performed 
either by hand, or with a slide rule. When done 
by hand, there was always a good chance that a 
computational error would exist. With a slide rule, 
the preciseness of the result left much to be 
desired. 

With the great strides made in the integrated 
circuit revolution, there now exists a number of 
relatively inexpensive "personal-type" digital com- 
puters, such as Radio Shack's Model TRS-80®, 
which can efficiently perform virtually any type 
of computation required for the design and analy- 
sis of electronic networks. Consequently, it is the 
goal of this book to present a variety of useful 
BASIC language programs which will greatly sim- 
plify the design and analysis of commonly en- 
countered circuit problems. 

All of the programs listed in this book were 
primarily written for a Radio Shack TRS-80 sys- 
tem having Level-II BASIC with at least 16K of 
random access memory. Level-II BASIC offers 
many advantages over the limited LEVEL-I set 
of commands and statements, particularly the 
mathematical functions, many of which are used 
repeatedly in the programs described in this book. 
However, many of these routines can be easily 
adapted to run on other computer systems, such 
as the PET and APPLE II. For example, the 
TRS-80 "SET" function is the same as the APPLE 
II "PLOT" function. The program listings and 
the actual output results, as they would normally 
appear on the video display, were printed using 
an IBM Selectric® printer instead of the dot- 
matrix font, to make the reading easier. 



In eight chapters, a variety of programs are 
presented that enable the user to solve a myriad 
of problems relating to plotting and the simple 
statistical verification of experimental data; rms 
and average values, as well as the Fourier series 
of a periodic waveform ; inverse Laplace, Fourier, 
and other network transforms ; design of match- 
ing pads, attenuators, active filters, heat sinks, 
integrated circuit timer, zener diode regulator, 
and bipolar transistor circuits; the solution of 
simultaneous equations with real or complex co- 
efficients, damped oscillations, and polynomial 
roots. Some of the programs, such as plot rou- 
tines, are written as subroutines so that they 
may be used as part of some of your own pro- 
grams. 

All output is displayed on the video screen, but 
most programs can be easily modified so that 
numerical results are handled by a line printer. 
The least squares regression program has the 
capability to store data on cassette tape. For those 
of you who have disk drives, this routine is easily 
modified to place the created data file on disk. 
Each program is assigned a name, which may be 
used as the file specification for those of you stor- 
ing programs on disk media. 

Several of the programs in this book were 
modified from programs originally written in 
FORTRAN, which were part of extensive sub- 
routine packages. Others were adapted from BA- 
SIC programs that have been published elsewhere ; 
however, the algorithms are standard. The mathe- 
matical theory for a particular circuit design or 
numerical technique used was intentionally kept to 
a minimum, since this book was not meant to 
replace traditional texts on circuit theory or nu- 
merical analysis and methods. However, there are 
short descriptions of the programs, along with 
computed examples and applicable schematic dia- 



grams, which are used to aid in both the explana- 
tion and verification of results against your own 
copies of the programs. 

Appendix A lists all the programs discussed in 
this book along with their approximate memory 
capacities. In addition, Appendix B lists the 
standard values for resistors and capacitors, 
which are helpful for a number of the programs. 

There are several computers, without whose 
help this book would still be on the proverbial 
drawing board. In particular, I am especially in- 
debted to my own TRS-80 computer, aided by 
the Electric Pencil® word processor and an IBM 
Selectric® typewriter for its efficient editing and 



typing of the manuscript and program listings 
before it went to the publisher. In addition, special 
thanks goes to a certain Sperry-Univac model 
V77-600 16-bit computer-based interactive graph- 
ics system equipped with a Calcomp model 1055 
plotter driven by a Sperry-Univac model 620/ 
f-100 computer, which drew all the drawings in 
this book, as well as the ones for my earlier 555 
Timer Applications Sourcebook, With Experi- 
ments. 

Although this is my seventh book in the Blacks- 
burg Continuing Education Series, I feel that I 
have had the most fun "writing" this one, even 
though my computers will loudly claim that they 
did all the work! 



Howard M. Berlin 
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BASIC FACTS 

The programs described in this book were writ- 
ten for a Level-II system having at least 16K of 
read/write memory. In addition, it is assumed 
that the user does not have either line printer or 
disk peripherals. When in Level-II BASIC, all 
programs are loaded from cassette tape using the 
CLOAD command. By the same token, data files 
created by a program are stored on tape. How- 
ever, if disk and/or printer peripherals are avail- 
able, many of the programs can be easily modified 
to either output results to a line printer or store/ 
retrieve data to/from disk. If the programs and 
data files are stored on disk, then there should be 
at least 32K of read/write memory. This is be- 
cause several programs are longer than 5K, as 
the disk operating system and disk BASIC occupy 
approximately lOK of memory when loaded. 

All computations are performed using single 
precision arithmetic, so that most numerical re- 
sults will be displayed with a maximum of six 
digits. For the majority of various designs, this 
has shown to be sufficient. In a number of cases, 
numerical calculations are provided with enough 
decimal places to make the results significant. As 
an example, resistance values calculated in kilohms 
are usually displayed with two decimal places. 

USING A LINE PRINTER 

Suppose a line printer is available. If the pro- 
gram is relatively short and does not contain too 
many PRINT statements, one can easily use the 
Level-II EDIT commands to change all PRINT 
statements to LPRINT. On the other hand, sup- 
pose the program is quite long, which is usually 



the case, changing all the necessary statements 
can be time consuming. In addition, Murphy's law 
virtually assures us that some of them would 
probably be missed. 

By using the following two POKE commands : 

" "K POKE 16414,141 

POKE 16415,5 . ,.,, 

placed in the program before the first PRINT 
statement, all items will be directed to the line 
printer instead of them appearing on the video 
display. 

On the other hand, the following two state- 
ments : 

POKE 16414,88 
POKE 16415.4 

must be inserted before your program ends in 
order to reverse the process. If this is not done, 
both the READY message and the > prompt 
cursor will be printed on the line printer instead 
of appearing on the video display. In addition, 
the system will have to be re-booted, since one will 
now be unable to return to having messages dis- 
played on the screen. 

When INPUT statements are located between 
these two pair of POKE statements, parallel-out- 
put line printers, such as Radio Shack's TRS-80 
Line Printer I (No. 26-1152), which is equivalent 
to the Centronics 779, will LPRINT the response 
only after the ENTER key is pressed. Conse- 
quently, one will not be aware of a typing error 
before pressing the ENTER key. On the other 
hand, RS-232 serial printers, such as teletypes 
and modified IBM Selectric typewriters simul- 
taneously print each character as it is entered 
from the keyboard. 
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MERGING A PROGRAM WITH 
A SUBROUTINE 

A number of programs in this book were pur- 
posely written as subroutines so that they may be 
made part of your own application programs. 
These include a variety of plotting routines, and 
mathematical functions, such as a four-quadrant 
arctangent function. Rather than retype the sub- 
routine each time it is needed, one can easily 
merge, or combine, the subroutine which is already 
stored on tape with the main program which is 
presently in memory. 

To merge a subroutine already stored on tape 
with a main program in memory, perform the fol- 
lowing steps : 

1. The line numbers of the program stored on 
tape must be larger than the highest line 
number of the main program. The subrou- 
tines in this book start with line numbers 
5000 and higher, and no two subroutines 
have the same inclusive line numbers. 

2. While in BASIC IPs COMMAND mode, de- 
termine the values stored in locations 16633 
and 16634 by typing: 

PRINT PEEK(ie633),PEEK(16634) -iJ'-^- 

and then pressing the ENTER key. 

3. If the value stored in location 16633 is equal 
to or greater than 2, then execute the follow- 
ing two statements in the COMMAND mode: 

POKE 16548,PEEK(16633)-2 
POKE 16549,PEEK{16634) 

and then use the CLOAD command to load 
the program stored on cassette tape from 
the tape recorder, after which the following 
two statements are executed : r- ^. - ;.• 



POKE 16548,233 
POKE 16549,66 

The merged program can then be saved on 
tape using the CSAVE command. 
4. If the value stored in location 16633 is less 
than 2, then execute the following two state- 
ments : 

POKE 16548,PEEK(16633)+254 
POKE 16549,PEEK(16634)-1 

and then use the CLOAD command to load 
the program stored on cassette tape from 
the tape recorder, after which the following 
two statements are executed: 

POKE 16548,233 
POKE 16549,66 

The merged program can then be saved on 
tape using the CSAVE command. 

For those using one or more disk drives, pro- 
grams can be merged while in DOS by using 
the APPEND command (TRSDOS version 2.2 or 
later), in which case both programs must have 
been previously saved using the "A" option 
(ASCII format). 

As an example, the ARCTAN subroutine, start- 
ing with line number 6000, is located on disk drive 
1, and the main program called MAINFRGM with 
which the ARCTAN program is to be merged is 
located on drive 0. Remember, both programs 
must have been saved in ASCII format and that 
the highest line number of MAINFRGM must be 
less than 6000. To merge these two programs, ex- 
ecute the DOS command : 

APPEND ARCTAN:1 TO MAINPRGM:0 

in which case MAINPRGM will now include the 
lines of ARCTAN. The ARCTAN file remains 
unchanged. 
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Plotting Graphs 



Perhaps one of the best methods for describing 
mathematical functions or experimental results is 
to plot them in the form of a graph. Remember, a 
good picture is worth ten thousand words. This 
chapter illustrates how it is possible to graph 
functions or discrete data points on your video 
display in the form of histograms, Cartesian, 
semilogarithmic, log-log, or polar plots. Most of 
these programs are primarily written as subrou- 
tines so that they may be easily used in conjunc- 
tion with your own special programs. In addition, 
programs are included which allow plotting of 
various types of graphs on a line printer. Once 
stored on tape or disk, the subroutines can then 
be easily merged with other main programs as 
needed. - - ■ 

HISTOGRAMS 

One of the simplest types of graphs is the histo- 
gram, or bar graph, which is usually used to dis- 
play frequency distributions. Fig. 2-1 shows the 
listing of the PHISTGM subroutine used to gen- 
erate a histogram on the video display. Required 
input variables are : the number of data points N, 
the horizontal and vertical values X(I) and Y(I), 
respectively, for each point, and the graph title 
T$. Fig. 2-2 illustrates a simple driver program 
that can be used with the PHISTGM subroutine. 
The program assumes that each X-axis value has 
only a single corresponding Y-axis value. Conse- 
quently, only a maximum of 101 individual bars 
may be plotted. The DIM statement in line 101 
must be included, as the coordinate values are 
stored before they are plotted on the display. 

Example 2-1 

Plot a histogram of the result of measuring the 
values of a sample of 55, 10% resistors, all of 



which are supposed to have the same nominal 
value, 100 ohms. As a result of our sampling, we 
find that the values vary, with several resistors 
having like values, as listed in Table 2-1. 

Table 2-1. Data for Example 2-1 



Point No. 


Valus 


Fraquancy 


1 


90 


1 


2 


92 


I 


3 


93 


2 


4 


94 


4 


5 


95 


3 


6 


96 


4 


7 


98 


7 


8 


99 


8 


« 


100 


11 


';-. m ■ 


101 


4 


■IS'- 


103 


■ . --. »■■. .T'l- 


12 


104 


4 


13 


106 


. ■ ^ 3 


14 


110 


2 

Total = 55 



Using the above data, Fig. 2-3A shows the re- 
sults of executing the main program of Fig. 2-2 
and the PHISTGM subroutine (Fig. 2-1) as one 
program (refer to Chapter 1 for how a program 
stored on tape can be merged with another pro- 
gram already in memory). After all the 14 indi- 
vidual points and the graph title are entered, the 
display informs us as to the current ranges of 
the two axes. The program then asks ua how we 
want the axes scaled, such as having the hori- 
zontal axis range from 80 to 120 while the verti- 
cal axis varies from to 15. Because of the method 
in which the axes are scaled, it is best to have the 
vertical axis (i.e., the "frequency" axis) incre- 
mented by a number that is easily divisible by 
five, since there are five major divisions, or tic 
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5000 ' HISTOGRAM SUBROUTINE - PHISTGM 

5001 ' X(I)=HORIZONTAL AXIS Y ( I ) =VERTICAL AXIS 

5002 ' N=NUMBER OF DATA POINTS T$=GRAPH TITLE 

5003 Y1=Y(1) :Y?.-Y(1) :X1=X(1) :X2=X(1) 

5004 FOR 1=2 TON 

5005 TF(Y1-Y(I) )<=0 THEN 5008 ELSE 5006 

5006 Y1=Y(I) 

5007 GOTO 5010 

5008 IF(Y2-Y(I) )<0 THEN 5009 ELSE 5010 

5009 Y2=Y{I) 

5010 IF(X1-X(I))<=0 THEN 5013 ELSE 5011 - . - 

5011 X1=X(I) 

5012 GOTO 5015 

5013 IF(X2-X{I))<0 THEN 5014 ELSE 5015 ■ ^^ 

5014 X2=X(I) . ,,. ■ • . 

5015 NEXTI 

5016 PRINT"MIN - MAX X VALUES ARE: ";X1,X2 

5017 PRINT"MIN - MAX Y VALUES ARE: ";Y1,Y2 

5018 INPUT"MIN,MAX X-AXIS SCALE: ";X1,X2 

5019 INPUT"MIN-MAX Y-AXIS SCALE: ";Y1,Y2 

5020 XD=X2-X1 :YD=Y2-Y1 ^' 

5021 CLS 

5022 PRINTED, Y2:PRINT@128,Y1+(YD*4/5) :PRINT@256 , Y1+ ( YD*3/5) :PRINTia448 , Y1 + (YD*2/5) 

5023 PRINT@576,Y1+(YD/5) :PRINTI3704 , Y1 

5024 FOR Y=0TO35 

5025 SET(13,Y) :NEXTY 

5026 FOR X=15T0115:SET{X,35) :NEXTX 

5027 FOR X=15T0115 STEPi : SET (X, 36 ) :NEXTX 

5028 FOR Y=0TO35 STEP 7 

5029 SET(12,Y) [ 
50 30 NEXTY 

5031 PRINT@838,X1 :PRINT3848 ,X1+ (XD/5) :PRINT@858 ,X1 + (XD*2/5) 

5032 PRINT(a868,Xl+(XD*3/5) : PRINT@878 ,X1+ (XD*4/5) : PRINT@888 ,X2 

5033 PRINT@916,T$ 

5034 FOR 1=1 TON -.-■, 

5035 X=115-( {X2-X{I) )*100/XD) :Y=35-( (Y(I)-YI )*35/YD) 

5036 IF X>116 THEN 5040 ELSE 5037 

5037 YT=Y 

5038 FOR Y=YT TO 35 : SET (X, Y) :NEXTY 1 
50 39 NEXTI 

5040 INPUT"HIT <ENTER> TO CONTINUE";FF 

5041 CLS:INPUT"ANY CHANGES IN SCALE FACTORS (YEP/NO) " ; A$ 

5042 IF A$="YF.S" THEN 5016 ELSE 5043 

5043 RETURN 

Fig. 2-1. Listing for PHISTGM subroutine. 



100 'MAIN PROGRAM FOR PHISTGM SUBROUTINE 

101 CLS: DIM X(101),Y(101) 

102 INPUT"NUMBER OF DATA POINTS TO BE PLOTTED ";N 

103 FOR 1=1 TO N 

104 PRINT"POINT";I; 

105 INPUT"X, Y ";X{I),Y(I) ^, ^ 

106 NEXT I 

107 INPUT"TITLE FOR GRAPH ";T$ 

108 GOSUB 5000 

109 END 



Fig. 2-2. Simple main program 
for PHISTGM. 



PHISTGM SUBROUTINE 



marks, on this axis. When the ENTER key is 
pressed, the resultant histogram is drawn on the 
video display, as shown in Fig. 2-3B. 
The histogram then remains on the screen until 



the ENTER key is pressed, after which we are 
asked whether or not we are satisfied with how 
the axes were scaled, as shown by the new en- 
tries in Fig, 2-4A and the resultant graph in Fig. 
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NUMBER OF DATA POINTS TO BE PLOTTED ? 
POINT 1 X, Y ? 90, 1 
92,1 
93,2 
94,4 
95,3 
96,4 
98,7 
99,8 
100,1 1 

101,4 

103,2 

104,3 

106,3 

110,2 



14 



X, 
X, 
X, 
X, 
X, 
X, 



POINT 
POINT 
POINT 
POINT 
POINT 
POINT 
POINT 8 X, 
POINT 9 X, 
POINT 10 X, 
POINT 11 X, 
POINT 12 X, 
POINT 13 X, 
POINT 14 X, 



TITLE FOR GRAPH ? 100 OHM RESISTOR SAMPLE 

MIN - MAX X VALUES ARE: 90 
MIN - MAX Y VALUES ARE: 1 

MIN, MAX X-AXIS SCALE: ? 80,120 

MIN, MAX Y-AXIS SCALE: ? 0,15 




iA) Output resuUa. 



(B) Video plot. 



Fig. 2-3. Plot of histogram of reeiators. 



2-4B. The process of changing the axis scales can 
be repeated as many times as desired. 

For those using TRSDOS, line 5040 can be 
changed to : 

LINEINPUT" ••;F$ 

30 that a "-" prompt appears in the lower left- 
hand corner instead of the "HIT <ENTER> TO 
CONTINUE?" prompt. 



CARTESIAN PLOTS 

The program for generating a Cartesian, or 
rectangular X-Y coordinate plot is similar to the 
histogram. The PCARTXY subroutine is shown 
in Fig. 2-5, and can be used with the plot driver 
program of Fig. 2-2, except that the GOSUB 5000 
statement in line 108 is now replaced with GO- 
SUB 5050, 



(A) Entries for new Bcaleg. 



ANY CHANGES IN SCALE FACTORS (YES/NO) ? YES 
MIN - MAX X VALUES ARE: 80 120 

MIN - MAX Y VALUES ARE: 15 

MIN, MAX X-AXIS SCALE: ? 50,150 
• MIN, MAX Y-AXIS SCALE: ? 0,15 



(B) Video plot. 




Fig. 2-4. Histogram of resistorB with new scales. 
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12 PLOTTING Graphs 

50 50 ' X-Y PLOT SUBROUTINE (PCARTXY) 

5051 ' X{I)=HORIZONTAL AXIS ' -■ • ' ■■■'■'>' 

5052 ' Y{I)=VERTICAL AXIS - "■..,. . ■> 

5053 ' N=NUMBER OF DATA POINTS • *' 
50 54 ' T$=GRAPH TITLE 

5055 ' DETERMINE MIN & MAX VALUES OF X & Y '^ ' ■ 

5056 Y1=Y(1) :Y2=Y(1) :X1=X{1) :X2=Xf1) ■ ' - ' 

5057 FOR I=2T0N '^ ■' 

5058 IF(Y1-Y(I) )<=0 THEN 5061 ELSE 5059 ' ' 

5059 Y1=Y(I) ■' ■ ^ ■■ 

5060 GOTO 5063 ' '' . ' 

5061 IF(Y2-Y(I))<0 THEN 5062 ELSE 5063 ' ' ,' '* ' 

5062 Y2=Y(I) 

5063 IF{X1-X(I) )<=0 THEN 5066 ELSE 5064 

5064 X1=X(I) 

5065 GOTO 5068 

5066 IF(X2-X(I))<0 THEN 5067 ELSE 5068 

5067 X2=X(I) 

5068 NEXTI 

5069 PRINT"CURRENT MIN - MAX X VALUES ARE: ";X1,X2 

5070 PRINT"CURRENT MIN - MAX Y VALUES ARE: ";Y1,Y2 ■ " 

5071 INPUT"DESIRED MIN, MAX X-AXIS SCALE: ";X1,X2 i. 

5072 INPUT"DESIRED MIN, MAX Y-AXIS SCALE: ";Yl,Y2 

5073 XD=X2-X1 :YD=Y2-Y1 . _ - 

5074 ' PLOT X-Y AXES AND SCALES 

5075 CLS 

5076 PRINT(a0,Y2:PRINT@128,Y1+(YD*4/5) : PRINT@256 , Y1+ (YD*3/5) :PRINT@448 , Y1+ {YD*2/5) 

5077 PRINT@576,Y1+(YD/5) :PRINT@704 , Y1 

5078 FOR Y=0TO35 

5079 SET{13,Y) :NEXTY yj , i^ ■■ . ,, , 

5080 FOR X=15T0115:SET(X,37) :NEXTX " " " ' ' 

5081 FOR X=15T0115 STEP1 : SET (X, 38) :NEXTX 

5082 FOR Y=OT035 STEP 7 ■ ^^ ■". •- 

5083 SET(12,Y) 
508 4 NEXTY 

5085 PRINT@838,X1 : PRINT(a848 ,X1+ (XD/5) :PRINT@858 ,X1 + fXD*2/5) 

5086 PRINT?86 8,X1+(XD*3/5) : PRINT@878 ,X1+ (XD*4/5) :PRINT@888 ,X2 

5087 PRINT@916,T$ 

5088 FOR I=1T0N 

5089 • PLOT POINTS . ■•■ 

5090 X=115-({X2-X(I))*100/XD) : Y=35- ( {Y (I) -Y1 ) *35/YD) 

5091 IFX>115 THEN 5093 ELSE 5092 

5092 SET(X,Y) :NEXTI - r>^- ■' 'w ■ . ■ 

5093 INPUT"HIT <ENTER> TO CONTINUE ";FF:CLS 

5094 INPUT"ANY CHANGES IN SCALE FACTORS (YES/NO) ";A$ 

5095 IF A$="YES" THEN 5069 ELSE 5096 

5096 RETURN 



'-' 11 .'-ii< I ( . 



-i«ii- 



A-" ^>-\ -.s.) 



'%: 



Fig. 2-5. Listing for PCARTXY subroutine. 



Example 2-2 

Graph the following 6 discrete (X,Y) points: 
(0,0.032). (0.02,0.135), (0.04,0.187), (0.06,0.268). 
(0.08,0.359), and (0.1,0.435). Fig. 2-6 shows the 
results after this data is entered. The X-axis varies 
from to 0.1 as Y ranges from 0.032 to 0.435, 
based on our data points, The X-axis was then 
scaled from to 0.1 while the Y-axis was con- 
veniently set to range from to 0.45. 

On the other hand, suppose we are interested 
in graphing continuous mathematical functions, 



instead of discrete data points. The following ex- 
ample illustrates how this is accomplished. 

Example 2-3 

Suppose the transient response of a given net- 
work has the known time varying solution : 

y(t) =2.3te-" 

Fig. 2-7 lists the main program used to plot this 
function, which is defined in line 106 in terms of 
the variables y and time, t (the independent vari- 
able). Line 107 transforms these two variables to 
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NUMBER OF DATA POINTS TO BE PLOTTED 
POINT 1 X, Y ? 0,0.032 

0.02,0. 135 

0.04,0. 187 

0.06,0.268 

0.08,0.359 

0.1,0.435 

TITLE FOR GRAPH ? EXAMPLE 2-2 DATA 
CURRENT MIN - MAX y. VALUES ARE: 
CURRENT MIN - MAX Y VALUES ARE: 
DESIRED MIN, MAX X-AXIS SCALE: ? 
DESIRED MIN, MAX Y-AXIS SCALE: ? 



POINT 


2 


X, 


Y 


7 


POINT 


3 


X, 


Y 


? 


POINT 


4 


X, 


Y 


7 


POINT 


5 


X, 


Y 


? 


POINT 


6 


X, 


Y 


? 



? 6 / - 



\y 



• : ~ ' 



: > r; 



.1 



.032 

0,.l 
0, .45 

(A) Output results. 



.435 



{B) Video plot. 



t-frH./m T U 




Fif. 2-6. Number of data points plotted. 



the variable arrays Y(I) and X(I), respectively, 
which are required by the PCARTXY subroutine. 
Since moat functions are single- valued, there will 
be 101 continuous points, which are recognized by 
the DIM statement in line 101. When this main 
program is run, we are first asked to select the 
minimum and maximum values of time over which 
this function is to be plotted, after which we are 
asked for a suitable title for our graph. 

For this example, we are interested in how 
this function appears as time varies from to 2.0 



seconds. When executed, we find that y'*> ranges 
from to 1,0 as t varies from to 2.0, as shown 
in Fig. 2-8A, while the resulting plot is shown in 
Fig. 2-8B. The graph remains on the screen until 
the ENTER key is pressed, after which we are 
asked whether or not we wish to change the scale 
of either one or both axes. Fig. 2-9 shows the 
same plot, except now the horizontal axis varies 
from to 0.75 seconds. 

Periodic, or circular functions, such as those 
which have sine or cosine terms are also easily 



100 'SAMPLE PROGRAM FOR PLOTTING A FUNCTION USING PCARTXY 

101 CLSrDIM X(101) ,Y(101) 

102 N=101 :I=1 

103 INPUT"MINIMUM AND MAXIMUM VALUES OF T TO BE PLOTTED ";A,B 

104 C=(B-A)/100 

105 FOR T=A TO B STEP C 



106 Y=2.3*T*EXP(-5*T) ' 

107 X(I)=T:Y(I)=Y:I=I+1 

108 NEXT T 

109 INPUT"TITLE FOR GRAPH " ; T$ 

110 GOSUB 5050 

111 END 



SAMPLE FUNCTION 



Fig. 2-7. Main program for plotting a function of time. 
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MINIMUM AND MAXIMUM VALUES OF T TO BE PLOTTED 
TITLE FOR GRAPH ? Y = 2 . 3*T*EXP (- 5*T) 
CURRENT MIN - MAX X VALUES ARE: 
CURRENT MIN - MAX Y VALUES ARE: 
DESIRED MIN, MAX X-AXIS SCALE: ? 0,2 
DESIRED MIN, MAX Y-AXIS SCALE: ? 0,.2 

*■ (A) Output reeults. 



0,2 



■J'-', r, 



2 

. 169 



225 




' AM . 



'fis -^ 



,.■.! t 



(B) Video plot. 



Fig. 2-8. Minimum and maximum values of T plotted. 



graphed on the display, as illustrated by the fol- 
lowing example. 

Example 2-4 

Plot the first three terms for the Fourier series 
of a square wave, such that : 

f(x)=: 

1.273sin(x) + 0.424sin(3x) + 0.255sin(5x) 

Fig. 2-lOA lists the main program used, plotting 




Fig. 2.9. Minimum and maximum values of T plotted with 
rescaled axes. 



the function in terms of radians. Fig. 2-lOB shows 
the output results along with the plot of this func- 
tion in Fig. 2-lOC. 

Fig. 2-11 shows the graph for the function 
y(t) =5e-«-2tsin(t). 

SEMILOGARITHMIC PLOTS 

The PSEMILOG subroutine, listed in Fig. 2-12, 
permits the plotting of points on a aemilogarith- 
mic coordinate system, which is logarithmic in X 
and linear in Y. Depending on the range of values 
for the horizontal axis, the subroutine automati- 
cally scales the X-axis for values with a maximum 
of 4 cycles. However, the user is able to set the 
range for the Y-axis scale. 

Example 2-5 

Plot the following 15 X-Y data points: (.001, 
1.49), (.002,1.48), (.008,1.43), (.01,1.40), (.025, 
1.29), (.05,1.15), (.088,.95), (.11,.85), (.30,.33), 
(.5,.12), (.94,.013), (1.23,.01), (4.3,.099), (7.1, 
.098), and (9.2,.098). Using the driver program 
of Fig. 2-13, the resulting scale limits and graph 
for these 15 points are shown in Fig. 2-14. The 
graph, which shows 4 cycles, remains on the screen 
until the ENTER key is pressed. Fig. 2-14B shows 
the plot of the same data for different axis scales. 
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100 'SAMPLE PROGRAM FOR PLOTTING A FUNCTION USING PCARTXY 

101 CLSiDIM X(101) ,Y(101) ,H(6) 

102 N=101 :I=1 

103 INPUT"ENTER MINIMUM AND MAXIUM VALUES OF X TO BE PLOTTED ";A,B 

104 C=(B-A)/100 

105 FOR X=A TO B STEP C 

106 Y=1.27 3*SIN(X)+.424*SIN(3*X)+.2 5 5*SIN(5*X) 

107 X(I)=X:Y(I)=Y:I=I+1 

108 NEXT X ■ - a 

109 INPUT"TITLE FOR GRAPH " ; T$ 

110 GOSUB 5050 

1 1 1 END 

(A) Main program. 

MINIMUM AND MAXIMUM VALUES OF X TO BE PLOTTED ? 0,6.28 
TITLE FOR GRAPH ? FOURIER SERIES - SQUARE WAVE 



M' r ." 



'FUNCTION TO BE PLOTTED 



' C 



CURRENT MIN - MAX X VALUES ARE: 
CURRENT MIN - MAX Y VALUES ARE: -1.18677 
DESIRED MIN, MAX X-AXIS SCALE: ? 0,6.28 
DESIRED MIN, MAX Y-AXIS SCALE: ? -1.5,1.5 



6.28 



t '■? 
1 .18653 



(B) Output results. 



I.-- V \ 



(C) Video plot. 



I 1.256 2.512 3.768 5.024 6.28 

FOURIEft SERIES-SQUARE WAVE 
HIT (ENTER) TO CONTINUE?- 



Fig. 2-10. Plotting a function using PCARTXY. 




Fig. 2-11. Video plot of the function y = 5e- ^t 8in(t). 



Continuous functions that require a semiloga- 
rithmic coordinate system are also easily graphed. 
These primarily include magnitude and phase 
plots of transfer functions (Bode plots), such as 
those representing active or passive filters. 

Example 2-6 

The transfer function, 

T(s) = 



s^-i- 1.414s -1-1 



representing a simple second-order function, can 
then be expressed in the following forms for its 
magnitude and phase responses: 

Magnitude : dB = -lOlog (1 + <o*) 
Phase: 6- -tan(a»2) 
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5100 • semi-log plot subroutine (psemilog) , max 4 cycles ■ ■■ ' ■ " *^^ ' - <" ' 

5101 • x(i)=horizontal axis - - .m .■ •, ,.r ;■ 

5102 • Y(I)=VERTICAL AXIS : -m . 

5103 ' N=NUMBER OF DATA POINTS ' -. .'JM. ,, . . : ., ' _- .,: 

5104 ' DETERMINE MIN & MAX VALUES OF X & Y ."■ -■.■>'- '' ' 

5105 Z9=1 :Y1=Y(1) :Y2=Y(1) :X1=X(1) :X2=X(1) ■^"i - ". ■ .\ "^ '^ '*' 

5106 FOR I=2T0N ' ■/,.■■■.•*.. -, ;, ' t " • - / j ' 

5107 IF(Y1-Y(I) )<=0 THEN 5110 ELSE 5108 • . v ,^ ■■■ ^', 

5108 Y1=Y{I) 

5109 GOTO 5112 " ' '■•■'-: -■" ": 

5110 IF(Y2-Y(I))<0 THEN 5111 ELSE 5112 .■ j '■■ 

5111 Y2=Y(I) --■ : : ■ 

5112 IF(X1-X(I) )<=0 THEN 5115 ELSE 5113 

5113 X =X(I) 

5114 GOTO 5117 

5115 IF(X2-X(I) )<0 THEN 5116 ELSE 5117 

5116 X2=X(I) ^.M - MV - 

5117 NEXTI ■ V V ^v - 

5118 PRINT"MIN - MAX X VALUES ARE: ";X1,X2 " 

5119 PRINT"MIN - MAX Y VALUES ARE: ";Y1,Y2 

5120 XY=LOG(X1)/LOG(10) :XU=LOG (X2)/LOG (10) :XS=X2/X1: 
AA=LOG (XS) /LOG (10) : AB=INT (AA) 

5121 CX=INT(ABS(XY-XU) )+1 

5122 IP ABS(AE-XU)-INT(ABS(AE-XU) )<lE-4 THEN CX=CX-1 ELSE CX=CX 

5123 AE=LOG(X1)/LOG(10) :AF=INT(AE) :IF(AE-AF)>.95 THEN 5124 ELSE 5125 

5124 XL=10-fAE:GOTO5127 

5125 XL=10+AF 

5126 AC=INT(AE) :XL=10+AC 

5127 IF XL*{10+CX)<X2 THEN CX=CX+1 - ' 

5128 IF CX>4.9 THEN CLS:PRINT"DATA EXCEEDS 4 CYCLES. CANNOT 
PLOT GRAPH": END 

5129 INPUT"MIN,MAX Y-AXIS SCALE -;Y1,Y2: YD=Y2-Y1 

5130 CLS 

5131 PRINT@0,Y2:PRINT@128,Y1+(YD*4/5) :PRINT@256,Y1+ (YD*3/5) 

5132 PRINT@448,Y1+(YD*2/5) :PRINT@576,Yl+(YD/5) :PRINT@704,Y1 * " ' 'imlk*. 

5133 FOR Y=0TO35 

5134 SET(15,Y) 

5135 NEXTY 

5136 FORX=17T0117 ' -' "* 

5137 SET(X,37) 

5138 NEXTX "■ - ' --■ ■ " - - :. 

5139 FORY=0TO35 STEP 7 

5140 SET(14,Y) 

5141 NEXTY 

5142 U=100/CX:FORX=17T0117 STEP U 

5143 SET(X,38) :SET{X,39) I 

5144 NEXTX 

5145 Z=0 f 

5146 FOR G=0TOCX 

5147 H(G)=XL*10+G c 

5148 NEXTG 

5149 IF CX02 THEN 5152 . 

5150 PRINT@902,H(0) :PRINT@927 ,H (1 ) :PRINT@952,H (2) T 

5151 GOTO 5164 

5152 IP CX03 THEN 5155 f 

5153 PRINT@902,H(0) :PRINT@91 8,H (1 ) :PRINT@934 ,H (2) 

5154 PRINT@952,H(3) :GOT05167 p 

5155 PRINT@902,H(0) :PRINT@91 5,H (1 ) :PRINT@927,H (2) :PRINT@939,H {3 ) 

5156 PRINT@952,H(4) :GOT05171 

5157 F0RI=1T0N t 

5158 X=17.4+{ (LOG(X(I)/XL))*100/(LOG(10)*CX) ) 

it 

Continued on next page. 
Fig. 2-12. LiBting for PSEMILOG subroutine. ^ 
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If 



5159 
5160 
5161 
5162 
5163 
5164 
5165 
5166 
5167 
5168 
5169 
5170 
5171 
5172 
5173 
5174 
5175 
5176 
5177 
5178 
5179 
5180 



Y=35-({Y{I 

IFX>118 OR 

SET(X,Y) 

NEXT I 

GOT05176 

SET(32,38) 

SET (82, 38) 

SET(112,38 

SET(17,38) 

SET(27,38) 

SET(76,38) 

SET (110,38 

SET (17, 38) 

SET(24,38) 

SET(49,38) 

SET(74,38) 

SET(99,38) 

INPUT"HIT 

INPUT "ANY 

IF A$="YES 

Z9-0:GOTO 

RETURN 



)-Y1)*35/YD) 
X<16.99 OR Y<0 



OR Y>35 THEN 5162 ELSE 5161 



: SET (47, 38): SET (56, 38) : SET (62,38) : SET (67,38) 

: SET (97, 38) : SET (106,38) 

) : SET (17, 38) :SET(117,38) :GOTO 5157 

: SET (50,38) : SET (83, 38) : SET (117,38) 

:SET(37,38) ; SET (43,38) : SET (60,38) : SET (70, 38) 

: SET (80, 38) : SET (94, 38) :SET(104,38) 

) : SET (11 4, 38) : SET (47,38) :GOTO 5157 

! SET (42, 38) : SET (67, 38): SET (92, 38) : SET (117,38) 

: SET (32,38) : SET (36, 38) : SET (40, 38) 

; SET (57, 38) : SET (61 ,38) : SET (65,38) 

: SET (82,38) : SET (86,38) : SET (90, 38) 

:SET(107,38) :SET(111,38) :SET(115,38) :GOTO 5157 

<ENTER> TO CONTINUE ";FF:CLS 

CHANGES IN SCALE FACTORS (YES/NO) ";A$ 

" THEN 5179 ELSE 5180 

5118 



Fig, 2-12 (coBt). Listing for PSEMILOG Bubroutine. 



Fig. 2-15 lists the main program required, which 
calls the PSEMILOG subroutine. The magnitude 
function is defined in line 109. Line 110 trans- 
forms the variables T (i.e., co) and Y to the arrays 
X(I) and Y(I), respectively, which are required 
by the PSEMILOG subroutine. 

Fig. 2-16A shows the magnitude plot for the 
transfer function as frequency is chosen to vary 
from 0.1 to 10 Hz, or a range of two decades 
(cycles). Fig. 2-16B shows the phase plot for the 
same transfer function. 

LOG-LOG PLOTS 

Fig. 2-17 lists the LOGLOG subroutine used 
for plotting points whose range requires logarith- 
mic scales for both axes. The main program of 
Fig. 2-13 can be used except that the GOSUB 
5100 statement is changed to GOSUB 5200, and 
V(6) must be included as part of the DIMEN- 
SION statement in line 102. 



Example 2-7 

Graph the following 5 discrete (X,Y) points: 
(.00075,.457), (.003,.349), (.008,.191), (.015, 
.083), and (.052,.01). Using the driver program 
of Fig. 2-13, the resulting scale limits and graph 
for these 5 points are shown in Fig. 2-18 which 
shows that the X-axis has 3 cycles while the Y-axis 
has 2 cycles. 

POLAR PLOTS 

Polar plots are frequently used in field theory 
and control systems, where the plot describes both 
a radial distance as well as the angle (as measured 
counterclockwise from the horizontal) associated 
with it. Examples are the electric field distribu- 
tion of an antenna, or Nyquist plots of the stabil- 
ity of feedback systems. 

The VPOLAR program shown in Fig. 2-19 per- 
mits the plotting of either discrete data points 
or functions expressed in polar coordinates. The 



Fig. 2-13. Simple main 
program for PSEMILOG. 



100 'MAIN PROGRAM FOR PSEMILOG SUBROUTINE 

101 CLS:DIM X ( 1 1 ) , Y ( 10 1 ) , H (6) 

102 INPUT"NUMBER OF DATA POINTS TO BE PLOTTED ";N 

103 FOR 1=1 TO N 

104 PRINT"POINT";I; 

105 INPUT"X, Y ";X(I),Y(I) 

106 NEXT I 

107 GOSUB 5100 'PSEMILOG SUBROUTINE 

108 END 



18 

NUMBER OF DATA POINTS TO BE PLOTTED ? 
POINT 1 X, Y ? .001 ,1 .49 

.002,1 .48 y ■ - . . 

.008,1.43 

.01 ,1.40 

.025,1.29 

.05,1.15 

.088,0.95 

.11,0.85 • ;■. .:-. 

.3,0.33 

.5,0.12 

.94,0.013 

1 .23,0.01 

4.3,0.099 

7.1 ,0.098 

9.2,0,098 
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X, 
X, 
X, 

X, 
X, 



POINT 
POINT 
POINT 
POINT 
POINT 
POINT 
POINT 8 X, 
POINT 9 X, 
POINT 10 X, 
POINT 11 X, 
POINT 12 X, 
POINT 13 X, 
POINT 14 X, 
POINT 15 X, 






' '1 '. 



,1 . T. »»■.■ . V 



:*IN - MAX X VALUES ARE: 
MIN - MAX Y VALUES ARE: 
MIN,MAX Y-AXIS SCALE: ? 



1E-0 3 
.01 
0,1.5 



9.2 
1 .49 



(A) Output results. 




100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 




iB) Video plot. 



Fig. 2-14. Number of data points plotted. 



(C) Reseated axea. 



•MAIN PROGRAM USING PSEMILOG TO PLOT A FUNCTION 

'FUNCTION IS DEFINED IN LINE 109 

CLS:DIM X(110),Y(110) 

1=1 

INPUT"MIN,MAX X";A,B 

D=LOG(B/A)/LOG(10) 

D=INT(D+.5) 

FOR F=0 TO D-1 

FOR T=A*10 + F TO (B/1 0+ (D-F-1) ) +A/1 0+F STEP (A* 1 + F ) * (D) /I 

Y=-10*LOG(1+(T+4) )/LOG(10) '2ND ORDER FUNCTION 

X(I)=T:Y(I)=Y:I=I+1 

NEXT T 

NEXTF _ S I , 

N=I-1 

GOSUB 116 'PSEMILOG SUBROUTINE 

END , . . . ... 

Fig. 2-15. Simple main program for plotting a function using PSEMILOG. 
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(A) Magnitude plot. ' ' ' (B) Phase plot. 

Fig. 2-16. Transfer function as frequency is chosen to vary from 0.1 to 10 Hz. 



n; 



polar function must be defined in line 145. The 
variable I is in degrees and is converted to radians 
by dividing it by 57.29577. As examples, Table 
2-2 lists the polar forms of a variety of frequently 
used functions, where the angle is expressed in 
radians. 

After the data points are entered or the polar 
function is determined, the program asks for a 
graph title, and then determines the maximum 
radius that exists. We are then asked to enter a 
value for the radius which is the maximum scales 
for both axes. The plot is then shown on the video 
display, which contains markers 30 degrees apart 
on the outer perimeter. In addition, the total, 
maximum radius, X-axis (DX) and Y-axis (DY) 
increments are also shown. 

Example 2-8 =;, . r^ . 

Plot the cardioid 

r = 2(H-cos(e)) 

so that there will be a point plotted every 4 de- 
grees. Line 145 should then read: 

145 R(K) =2* (1+COS (1/57.29577)) '^' - 

When run the maximum radius was found to be 
4.0, giving the results shown in Fig. 2-20. Other 
polar functions plotted using the VPOLAR rou- 
tine are shown in Fig. 2-21. 

PLOTTING WITH A LINE PRINTER 

For those of you who have a line printer, you 
would probably like to make a hard-copy record 



of a particular graph either for inclusion in a 
report, or for later comparison with other results. 

Table 2-2. Common Polar Functions 



Nam* 


Equction 


Circle: 


r = A cosO or r = A 8in9| 


Cardioid: 


r = A(l + cos9) or r = |A(1 + sinG)] 


Lemninscate: 


r = JACos{ne)| or r = |Asin(n6}| 


Li m scon: 


r = |A + Bcos9l or r = |a + BsinGi 


N-Leaved Rose: 


r = |Acos(n6)| or r = A8in{ne)! 


Archimedian Spiral: 


r = AS 


Hyperbolic Spiral; 


r = A/e 


Logarithmic Spiral: 


r = e«'' 



The following programs allow continuous func- 
tions to be graphed on virtually any line printer. 

Cartesian Plots 

Fig. 2-22 shows the LINEPLOT program which 
permits the plotting of a function, which must 
be defined in line 109, on a Cartesian coordinate 
system. The program asks for the minimum and 
maximum values of X for which the function is 
to be plotted, as well as the X-axis increment 
scale. In addition, the program will label both 
axes. 

Example 2-9 

Plot the function y(t) = e- 2>'ain(x) as x varies 
from to 15.0 radians. Fig. 2-23 shows the re- 
sultant graph, for which the scale of the Y-axis 
was set to vary from —0.5 to 1.0. 
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5200 •lcx;-log plot subroutine (LOGLOG) 

5201 'inputs: x(i) and-y{i) 

5202 » n ^ # of points 

5203 Yl=Y(1):y2=Y(1):X1=X{1) :X2=X{1) 

5204 FOR I=2T0N 

5205 IF(yi-Y(I))<=0 THEN 5208 ELSE 5206 

5206 Y1=Y(I) 

5207 GOTO 5210 

5208 IF(Y2-Y(I) )<0 THEN 5209 ELSE 5210 

5209 Y2=Y(I} 

5210 IF(X1-X(I))<-0 THEN 5213 ELSE 5211 

5211 X1=X(I) 

5212 GOTO 5215 

5213 IF(X2-X(I))<0 THEN 5214 ELSE 5215 

5214 X2=X(I) 

5215 NEXTI 

5216 XS=X2/X1:AA=LOG(XS)/LOG(10) :AB=INT{AA) :XY=LOG (XI )/LOG (10) : 
XU=LOG(X2)/LOG(10) : YY=LOG (Y1 )/LOG (1 0) : YU=LOG (Y2) /LOG (10) 

5217 CX=INT(ABS(XY-XU))+1 

5218 IF ABS(AE-XU)-INT(ABS(AE-XU) )<lE-4 THEN CX=CX-1 ELSE CX=CX 

5219 AE=LOG(X1)/LOG(10) :AF=INT(AE) :IF(AE-AF)>.95 THEN 5220 ELSE 5221 

5220 XL=10fAE:GOTO5223 

5221 XL=10-fAF 

5222 AC=INT(LOG(X1)/LOG(10) ) :XL=10+AC 

5223 IF XL* (10-fCX)<X2 THEN CX=CX+1 

5224 IF CX>4.9 THEN CLS:PRINT"X-AXIS DATA EXCEEDS 4 CYCLES. CANNOT 

PLOT GRAPH": END 

5225 YS=Y2/Y1:BA=LOG(YS)/LOG(10) :BB=INT(BA) 

5226 CY=INT(ABS(YY-YU))+1 

5227 IF ABS(BE-YU)-INT{ABS(BE-YU) )<lE-4 THEN CY=CY-1 ELSE CY=CY 

5228 BE=LOG(Y1)/LOG{10) :BF=INT(BE) :IF(BE-BP)>,95 THEN 5229 ELSE 5230 

5229 YL=10-fBE:GOTO 5232 

5230 YL=10+BF 

5231 BC=INT(BE) :YL=10-fBC 

5232 IF YL* (10-fCY)<y2 THEN CY=CY+1 

5233 IF CY>4,9 THEN CLS: PRINT" Y-AXIS DATA EXCEEDS 4 CYCLES. CANNOT 

PLOT GRAPH": END 

5234 CLS:GOT05261 

5235 U=100/CX:FORX=17TO117 STEP U 

5236 SET(X,38) :SET(X,39) 

5237 NEXTX 

5238 Z=0 

5239 FOR G=0TOCX 

5240 H{G)=XL*10-fG ,.„,.,; i..,.. 

5241 NEXTG ■ ■'"''*'» 

5242 IF CX02 THEN 5245 ;■■';;- 

5243 PRINT@902,H(0) :PRINT@927,H (1 ) :PRINT@952,H (2) 

5244 GOTO 5250 ' '■*' - ' '^ - f 

5245 IF CX03 THEN 5248 - ,., „ . ,^, _ 

5246 PRINT@902,H(0) :PRINT@918,Hf1) :PRINT@934,H(2) :PRINT@952,H(3) 

5247 GOT05252 

5248 PRINT@902,H(0) :PRINT@91 5,H (1 ) :PRINT@927,H (2) :PRINT@939 , H (3 ) : 
PRINT@952,H(4) 

5249 GOT05255 

5250 SET (32,38) :SET(47,38) : SET (56,38) : SET (62,38) :SET(67,38) : SET (82, 38) : 
SET (97,38) : SET (106, 38) 

5251 SET(112,38):SET(17,38) :SET(117,38):GOTO 5274 

5252 SET (17,38) : SET (50,38) :SET(83,38) :SET(117,38) 

5253 SET (27, 38): SET (37, 38) :SET(43,38) : SET (60,38) : SET (70, 38) : SET (76 , 38) : 
SET {80, 38) :SET(94,38) :SET(104,38) 

5254 SET(110,38):SET(114,38) :SET(47,38):GOTO 5274 

Continued on next page. 
' ^ Fig. 2-17. Listing for LOGLOG subroutine. 



" 
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5255 SET(17,38) : SET (42,38) : SET (67, 38) : SET (92, 38) : SET (11 7, 38) 

5256 SET (24, 38) : SET (32, 38) : SET (36, 38) : SET (40, 38) 

5257 SET (49,38) : SET (57,38) : SET (61 ,38) : SET (65, 38) 

5258 SET (74, 38) : SET (82,38) : SET (86, 38) : SET (90, 38) 

5259 SET (99,38) :SET(107,38) : SET (11 1,38) :SET (115,38) :GOT05274 

5260 GOTO 5278 

5261 FOR G=0TOCY:V(G)=YL*10-fG:NEXTG 

5262 IF CY02 THEN 5265 

5263 PRINT@0,V(2) :PRINT@384,V(1) :PRINT@768,V(0) 

5264 GOTO 5269 

5265 IF CY03 THEN 5268 

5266 PRINT@0,V(3) :PRINT@256,V (2) :PRINT@51 2,V (1 ) :PRINTia768 ,V (0) 

5267 GOTO 5269 

5268 PRINTED, V (4) :PRINT@1 92,V (3) :PRINT@384 ,V (2) :PRINT@576 ,V (1 ) 
PRINT@768,V(0) 

5269 FORY=0TO36:SET(15,Y) iNEXTY 

5270 V=36/CY:FORY=0TO36 STEPV 

5271 SET(14,Y) :NEXTY 

5272 FORX=17T0117:SET(X,37) :NEXTX 

5273 GOT05235 

5274 FOR 1=1 TON ^^'- •■ 

5275 X=17,5+((LOG(X(I)/XL))*100/{CX*LOG{10))) 

5276 Y=36.1-((LOG(Y(I)/YL))*36/(CY*LOG(10))) 

5277 SET(X,Y) :NEXTI 

5278 INPUT"HIT <ENTER> TO CONTINUE "; Z9 :CLS : RETURN 



'.!■.■ I »-.; 



Fig. 2-17 (cont). Listing for LOGLOG subroutine. 



Semi logarithmic Plots 

The XLOGPLOT program shown in Fig. 2-24 
permits the plotting of a function having a loga- 
rithmic behavior, which must be defined in line 
110. Such would be the case of the frequency re- 
sponse of a filter, which might cover several 
decades. 

Example 2-10 

Plot the frequency response of a second-order 
low-pass filter, having the form : 

^ '-' dB^-lOlogd + f'') 

Fig. 2-25 shows the resultant plot from 0.1 to 
10 Hz. . • • 



Polar Plots 

The POLARPLT program shown in Fig. 2-26 
permits the plotting of polar functions (Table 
2-2), such as those describing cardioids, spirals, 
etc., and must be defined in line 109. 

When run, the program requires only a graph 
title and the scale limit for the two axes. 

Example 2-11 

Plot the N-leaved rose 

r = sin (30) 

As shown in Fig. 2-27, the scale limits of the 
two axes were arbitrarily set at 1.2. 



PLOTTING Graphs 



(A) Output reBulta. 



NUMBER OF DATA POINTS TO BE PLOTTED ? 5 




POINT 1 X, y ? .00075, .457 




POINT 2 X, Y ? .003, .349 




POINT 3 X, Y ? .008,. 191 ., 




POINT 4 X, Y ? .015, .083 ' " , 


" 


POINT 5 X, Y ? .052, .01 




MIN - MAX X VALUES ARE: 7.-5E-04 


.052 


MIN - MAX Y VALUES ARE: .01 


.457 



(B) Video plot. 




Fig. 2-18. Five data points plotted. 
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100 'POLAR PLOT - VIDEO DISPLAY (VPOLAR) 

101 CLS:PRINT"GRAPH IS FOR:" 

102 PRINT" 1. DISCRETE DATA POINTS 

103 INPUT" 2. A POLAR FUNCTION ";AA 

104 Z9=1 :PRINT:INPUT"GRAPH TITLE (MAXIMUM 20 CHARACTERS) ";T$ 

105 DIM 2(361) ,X(361) ,Y(361),R(361) ,A(361) 

106 IF AA=1 THEN 107 ELSE 140 

107 CLS:INPUT"NUMBER OF DATA POINTS ";N 

108 FOR 1=1 TO N:INPUT"MAGNITUDE, ANGLE ";R(I),Z(I) 

109 A(I)=Z(I)/57.29577:X(I)=R(I)*COS(A(I)) : Y (I}=R (I) *SIN (A (I) ) 

110 NEXT I 

111 Z9=2:GOTO 147 

112 CLS:PRINT@0,T$:PRINT@28,"90 +" 

113 PRINTia64, "RADIUS =";RM:PRINT@84 , "+" :PRINT@95, "+" :PRINT@106, "+" 

114 PRINT@128,"DX =" ; INT ( (RM/4) *100+. 5)/1 00:PRINTiai 59 , " + " 

115 PRINT@192,"DY =" ; INT ( (RM/7) *1 00+. 5)/1 00 :PRINT@223, "+" 

116 PRINT@268,"+":PRINT@287/' + ":PRINT@306,'' + ":PRINT@351," + ":PRINT@415,"+" 

117 PRINT@453,"180" 

1 1 8 PRINT@457 , "+" : PRINT@463 , "+" : PRINT@468 , "+" : PRINT@474 , "+" : PRINT@479 , "+" 
1 1 9 PRINT@485 , "+" : PRINT@490 , " + " : PRINT(a496 , " + " : PRINT@501 , "+" 

120 PRINT@503,"0 DEGREES" :PRINT@54 3 ,"+" :PRINT@607, "+" :PRINT@652, "+" 

121 PRINT@671 , "+":PRINT@690,"+" 

122 PRINT@735, "+" :PRINT@799 , "+" :PRINT@852, "+" :PRINT@863 , "+" :PRINT0874 , "+" 

123 PRINT@923,"270":PRINT@927,"+" 

124 FOR K=1 TO N 

125 X=63+(X(K)*44/RM) :Y=22- (Y (K) *21/RM) 

126 SET(X,Y) :NEXT K 

127 INPUT''<ENTER> ";Z$ 

128 CLS:PRINT"DO YOU WANT TO CHANGE:" 

129 PRINT" 1. AXIS SCALES" : IF Z 9= 2 THEN 130 ELSE 132 

130 INPUT" 2. NO CHANGE ";Z8 

131 PRINT: ON Z8 GOTO 136 ,139 

132 PRINT" 2. PLOT INCREMENT" 

133 PRINT" 3. BOTH" 

134 INPUT" 4. NO CHANGE ";Z7 

135 PRINT:ON Z7 GOTO 136 , 137 , 138 , 139 

136 INPUT"MAXIMUM RADIUS ";RM:GOTO 112 

137 Z9=0:GOTO 140 

138 Z9=1 :GOTO 140 

139 END "" '■ 

140 K=1 

141 INPUT"FLOT INCREMENT, IN DEGREES ";G 

142 FOR 1=0 TO 360 STEP G:CLS:PRINT"COMPUTING" 

143 R(K)=25*COS(I/57. 29577) 'SAMPLE FUNCTION 

144 IF K>360/G THEN 147 ELSE 145 

145 A(K)=I/57.29577:X(K)=R(K)*COS(A(K)) : Y (K) =R (K) *SIN (A (K) ) 

146 K=K+1:N=K:NEXT I 

147 'START MIN/MAX ROUTINE 

148 R1=R(1) :R2=R(1) 

149 FOR I=2T0N 

150 IF(R1-R(I))<=0 THEN 152 ELSE 151 

151 R1=R(I) :GOTO 154 

152 IF{R2-R(I))<0 THEN 153 ELSE 154 

153 R2=R(I):IF R2<1 THEN R2=1 

154 NEXT I 

155 IF Z9=0 THEN 112 

156 CLS:PRINT"MAXIMUM RADIUS OF FUNCTION =";R2 

157 INPUT"MAXIMUM RADIUS FOR AXES " ; RM 

158 IF RM<R2 THEN 157 

159 GOTO 112 . f... J . . 

Fig. 2-19. Listing for VPOLAR program. 
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GRAPH IS FOR: 

1 . DESCRETE DATA POINTS 

2. A POLAR FUNCTION ? 2 



ENTER: 

GRAPH TITLE (MAXIMUM 20 CHARACTERS) ? CARDIOID 
PLOT INCREMENT, IN DEGREES ? 4 

MAXIMUM RADIUS OF FUNCTION = 4 
MAXIMUM RADIUS FOR AXES ? 4 



(A) Output results. 



CARDIOID 
RADIUS = 4 
DX = 1 
DY = .57 

+ 



D DEGREES 



(B) Video plot 



(ENTER)?. 



Fig. 2-20. Plotting cardioid. 
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25 



CIRCLE 

RADIUS = 25 
DX = 6.25 
DY = 3.57 



(ENTER)?- 



imt"*\t 



DEGREES 




(A) Circle. 



(B) Arckimedian spiral. 




(E) Hyperbolic spiral. 



6-LEAVED RDSE 

RADIUS = 2 .' 

DX = .5 ' 

DY = .29 \ '' 



■ 

180 1^ + + + ,1^, + 



+ 



|ENTER)?_ 



(D) 6'leaved rose. 




Fig. 2-21. Video plot of various polar functione. 
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100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

1 14 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 



•sample function 



'X-Y PLOT ROUTINE FOR LINE PRINTER (LINEPLOT) 

CLS:DIM X(100) ,Y(100) 

INPUT"MIN, MAX X VALUES OF FUNCTION TO BE PLOTTED ";X1,X2 

INPUT"X-AXIS INCREMENT" ;R 

INPUT"X-AXIS TITLE ";X$ 

K=LEN{X$) 

INPUT" Y-AXIS TITLE ";Y$ 

1=1 :XD=X2-X1 :S=XD/R 

FOR X=X1 TO X2 STEP R 

Y=EXP(-.2*X)*SIN{X) 

X(I)=X:Y(I)=Y 

1=1+1 :N=I-1 

NEXT X 

GOSUB 1 1 6 

GOSUB 130 

END 

'DETERMINE MIN & MAX VALUES OF Y 
Y1=YC1) :Y2=Y(1) 
FOR 1=1 TO N 

IF(Y1-Y(I) )<=0 THEN 122 ELSE 120 

Y1=Y{I) 

GOTO 124 

IF(Y2-Y(I) )<0 THEN 123 ELSE 124 

Y2=Y(I) 

NEXTI 

PRINT"MINIMUM Y-AXIS VALUE = ";Y1 

PRINT"MAXIMUM Y-AXIS VALUE = ";Y2 

PRINT: INPUT"ENTER MINIMUM Y-AXIS VALUE ";Y1 

INPUT"ENTER MAXIMUM Y-AXIS VALUE ";Y2 

YD=Y2-Y1 : RETURN 

'PLOT POINTS 

Z$="###.##" 

L=YD/50 

C1=Yl-L/2 

D1=Y2+L/2 

CLS 

W=1 

LPRINTTAB(30) ;Y$ 

LPRINTiFOR U=0TO5:LPRINTTAB(U*9+10+U-1) ;U*10*L+Yl ; 

NEXTU:LPRINT" " 

LPRINTTAB (1 0) ; "+ + + + + + + + +' 

FOR I=1T0S+1 

IF Y(I)<C1 THEN 149 

IF Y{I)>=D1 THEN 149 

LPRINT MID$ (X$,W,1) ; :LPRINT TAB (2 ) ; : LPRINTUSINGZ$ ; X (I) ; : 

LPRINT TAB (9) " I " ; TAB ( (Y ( I ) -Yl ) /L+1 . 5 ) ; " * " ; TAB (6 1) " I" 

W=W+1: NEXTI 

LPRINTTAB (10) ; "+ + + + + + + + + " 

RETURN 

LPRINT MID$ (X$,W,1) ; :LPRINT TAB ( 2 ) ; : LPRINTUSINGZ$ ; X (I ) ; : 

LPRINT TAB{9) ;"I";TAB(61) "I" 
GOTO 146 



Plotting Graphs . 
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Fig. 2-22. Listing for LINEPLOT program. 
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MIN, MAX X VALUES OF FUNCTION TO BE PLOTTED ? 0,15.0 

X-AXIS INCREMENT? 0.5 

X-AXIS TITLE ? RADIANS ' 

Y-AXIS TITLE ? AMPLITUDE 

MINIMUM y-AXIS VALUE = -.397434 
MAXIMUM Y-AXIS VALUE = .738963 

ENTER MINIMUM Y-AXIS VALUE ? -0.5 
ENTER MAXIMUM Y-AXIS VALUE ? 1.0 

. t " 
(A) Output results. 
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(B) Printer plot. 
Fig. 2-23. Function y(t) = e--2»8in(x) plotted as x varies from to 15 radians. 



28; PLOTTING GRAPHS 

100 'X-Y PLOT ROUTINE FOR LINE PRINTER, SEMI-LOG IN X (XLOGPLOT) 

101 CLSrDIM X ( 1 00 ) , Y { 1 00 ) 

102 INPUT"MIN, MAX X";X1,X2 

103 INPUT"MIN, MAX Y";Yl,Y2 . ' ' - -^ 

104 X1=L0G(X1)/L0G (10) :X2=LOG(X2)/LOG(10) 

105 INPUT"X-AXIS TITLE ";X$ - -' ^ 

106 K=LEN(X$) = ■r ■ ■ . . . , ■ - 

107 INPUT"Y-AXIS TITLE ";Y$ ^ 

108 1=1 :XD=X2-X1 :YD=Y2-Y1 :S=XD/. 1 S 

109 FOR X=X1 TO X2+.1 STEP .1 

110 Y=20*LOG(1/SQR(1+({10+X}+2)) )/LOG(10) 'SAMPLE FUNCTION 

111 X(I)=X:Y(I)=Y 

112 1=1+1 

1 1 3 NEXT X 

114 GOSUB 116 : . 

115 END .__.' ....,,._ 

116 'PLOT GRAPH ^ ' 

117 Z$="####.##" 

118 L=YD/50 

119 C1=Yl-L/2 , ? '>. f - 

120 Dl=Y2+L/2 ■: 

121 CLS 

122 W=1 

123 LPRINTTAB(30) ;Y$ 

124 LPRINT:FOR U=0TO5 iLPRINTTAB (U*9+1 O+U-1 ) ;U*1 0*L+Y1 ; 

125 NEXTU:LPRINT" " 

126 LPRINTTAB(IO) ; " + + + + + + + + + + + " 

127 FOR I=1T0S+1 . 

128 IF Y{I)<C1 THEN 135 '- 

129 IF Y(I)>=D1 THEN 135 

130 LPRINT MID$(X$,W,1) ; :LPRINT TAB { 1 ) ; : LPRINTUSINGZ$; 1 0+X (I) ; : 

131 LPRINT TAB(9)"I";TAB((Y{I)-Y1)/L+10.5);"*";TAB(61)"I" . ,. 

132 W=W+1 :NEXTI 

133 LPRINTTAB(IO) ; "+ + + + + + + + + + +" 

134 RETURN 

135 LPRINT MID$ {X$,W,1) ; :LPRINT TAB ( 1 ) ; :LPRINTUSINGZ$; 1 0+X (I) ; : 

136 LPRINT TAB(9) r"I";TAB(61)"I" 

137 GOTO 132 

■ - 'J . r r 
Fig. 2-24. Listing for XLOGPLOT program. 
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(A) Output results. 



MIN, MAX X? 0.1,10.0 

MIN, MAX Y? -20,5 

X-AXIS TITLE ? LOG FREQUENCY IN HZ 

Y-AXIS TITLE ? DB RESPONSE 



DB RESPONSE 
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(B) Printer plot. 
Fig. 2-25. Frequency respoiiBe of low-pass filter plotted. 
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100 'POLAR PLOT FOR LINE PRINTER (POLARPLT) 

101 CLEAR 200 ,,,.^^ WMi.'dr 

102 DIM X(91) ,Y(90) 

103 N=90 

104 CLS:INPUT"SCALE LIMITS ";Z 

105 INPUT"GRAPH TITLE ";G$ 

106 FOR 1=1 TO N 

107 CLS:PRINT"CONVERTING ANGLES TO RADIANS" 

108 D=. 06981317*1 

109 F=2*C0S(D) 'SAMPLE FUNCTION [' 

110 X(I)=INT( ( (F*COS(D)/Z+1)*30)+.5) '\ 

111 Y(I)=INT(((-F*SIN(D)/Z+1)*18)+.5) 

112 NEXTI _ 

113 CLS:PRINT"SORTING COORDINATES" ^ 

114 FOR J=1 TO N :' 

115 FOR 1=1 TO N-J i; 

116 A=X{I) :B=Y(I) P 

117 IF B<=Y{I+1) THEN 121 

118 X(I)=X(H-1) * 

119 Y(I)=Y(I+1) 

120 X(I+1)=A:Y(I+1)=B 

121 NEXTI 

122 NEXT J , 

123 T=1 , ■ ^ J •■ ■>- 

124 FOR P=0 TO N-1 '. 

125 IF Y ( P+ 1 ) >=0 THEN 127 _4_. .,. ... 

126 NEXTP 

127 LPRINTG$ 

128 LPRINTTAB(29) ;"+Y =";7 . .. 

129 LPRINT ., ' u.v 

130 FOR 1=0 TO 3 6 

131 T=T+P 

132 P=0 

133 IF T>N THEN 135 

134 IF Y(T)=I THEN 140 

135 IF 1=18 THEN 138 

136 LPRINTTAB(30) ;"I"; 

137 GOTO 184 

138 S=N+1 

139 GOTO 172 ' "' '"'^ '* ''*-^ 



140 FOR L=T TO N 

141 IF Y(L)>Y(T) THEN 144 

142 P=P+1 

143 NEXTL 

144 IF P=1 THEN 154 

145 FOR H=l TO P 

146 FOR Q=1 TO P-H 

147 C=X(T+Q-1) 

148 A=X(T+Q) 

149 IF C<=A THEN 152 

150 X{T+Q-1)=A 

151 X(T+Q)=C 

152 NEXTQ 

153 NEXT H 

154 IF 1=18 THEN 171 

155 L=-1 

156 S=0 

157 FOR K=0 TO P-1 

158 IF X(T+K)=L THEN 167 

159 L=X(T+K) 

160 IF L=30 THEN 164 

161 IFLOO THEN 165 Continued on next page. 

Fig. 2-26. Listing for POLARPLT program. 
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162 IF S=1 THEN 165 

163 LPRINTTAB{30) ; "I"; -■ '.; -T r-Ali.i -l-i 

164 S=1 s . •• f ■ 

165 IF L>60 THEN 184 

166 LPRINTTAB(L) ;"*"; 

167 NEXT K L 

168 IF S=1 THEN 184 

169 LPRINTTAB(30) ; "I"; I 

170 GOTO 184 I 

171 S=T 

172 FOR J=0 TO 60 ■ 

173 IF X{S)<>J THEN 181 y /i- • 

174 LPRINT"*"; , Y Ol ' Vf -^ 

175 FOR K=S TO T+P-1 

176 IF X(K)=X(S) THEN 1 79 * * ' t - , , 

177 S=K * * * • 

178 GOTO 182 • 1 

179 NEXT K ■■■■-. 

180 GOTO 182 

181 LPRINT"-"; 

182 NEXT J 

183 LPRINT" +X =";Z; 

184 LPRINT 

185 NEXT I , . , _ r 

186 LPRINT ' '''■■' r' '.*(' ■=' . ■ -■- 

187 LPRINTTAB{29) ; "-Y = ";Z " ^ 

188 END 

Fig. 2-26 (cont). Listing for POLARPLT program. 
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PLOTTING Graphs 



N-LEAVED ROSE F=SIN(3*D) 



+Y = 1.2 
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-Y = 1.2 
Fig. 2-27. Printer plot for Example 2-11. 
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The Analysis of Signals 



This chapter on the analysis of signals discusses 
programs which are used to analyze both periodic 
and aperiodic (nonrepetitive) waveforms. In par- 
ticular, we will be able to determine both the 
average and root mean square (rms) values of 



a periodic function; the representation of any 
periodic signal by Fourier series ; the representa- 
tion of aperiodic signals by a modification of the 
Fourier transform; and analyze damped oscil- 
lations. 



100 'RMS & AVERAGE VALUE OF A PERIODIC WAVEFORM (RMSAV) 

101 CLStPRINT^RMS AND AVERAGE VALUE OF A PERIODIC WAVEFORM" 

102 CLEARiDIM C(361) 

103 PRINT:PRINT''RMS AND AVERAGE VALUES ARE DETERMINED FROM: 

104 PRINT" 1. DISCRETE POINTS 

105 INPUT" 2. A DEFINED FUNCTION ";Z9 

106 PRINT: INPUT^CYCLE PERIOD ";T 

107 INPUT"# DIVISIONS FOR 1 CYCLE ";C 

108 V=T/C 

109 IF 29=1 THEN 110 ELSE 116 , ._ 

110 PRINT"TIME" ' 

111 FOR 1=0 TO C 

112 PRINTI*V; , i ' 

113 INPUT C(I) ' 

114 NEXTI ' 

115 CLS:GOTO 120 

116 A=360/C 'SAMPLE 

117 FOR 1=0 TO C 'SAMPLE 

118 C(I)=SIN((A*I)/57. 29578) 'SAMPLE 

119 NEXT I 'SAMPLE 

120 CLS:Z=1/T 

121 S=0:AV=0:HC=0 

122 FOR 1=0 TO C-2 STEP 2 

123 S=S+C(I)+2+4*C(I+1)-f2+C{I+2)+2 

124 AV=AV+C(I)+4*C(I+1)+C(I+2) 

125 IF I>C/2 THEN 126 ELSE GOSUB 137 

126 PRINT@472,"COMPUTING";I 

127 NEXT I 

128 AV=Z*V*AV/3:IF AV<1E-3 THEN AV=0 

129 HC=Z*V*HC*2/3 

130 RS=SQR(Z*V*S/3) 

131 PRINT"RMS VALUE =";RS 

132 IF AV=0 THEN 135 

133 PRINT"AVERAGE VALUE =";AV 

134 IP AVOO THEN 136 

135 PRINT"HALF CYCLE AVERAGE VALUE =";HC 

136 PRINT:END 

137 HC=HC+C(I)+4*C(I+1)+C(I+2) : RETURN 

Fig. 3-1. Listing for RMSAV program. 
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THE AVERAGE AND RMS VALUES 
OF A WAVEFORM 

The RMSAV program listing shown in Fig. 3-1 
determines both the average and rms values of 
a periodic signal. This is extremely useful in veri- 
fying ac measurements, such as determining the 
average power of a circuit, or of a particular de- 
vice within the circuit. Mathematically, the aver- 
age value of a periodic waveform f (t) is: 

AV = ^jf(t)dt (Eq.3-1) 

D 

However, it must be noted that the average value 
for most periodic functions having symmetry 
about zero amplitude (i.e., no dc term) is naturally 
zero, since the same amount of the waveform is 
above as well as below the zero reference, like 
most sine, triangular, and square waves. When 
this occurs, a half-cycle average value is deter- 
mined to represent the average value of a periodic 
function, so that 

T/2 

AV = |jf(t)dt (Eq.3-2) 



On the other hand, the rms value is given by : 

T 

RMS = (^|f (t)2 dt) '^' (Eq. 3-3) 



Using Simpson's rule to numerically compute 
the integrals, the RMSAV program determines 
the average and rms values from equally spaced 
discrete data points, or from a periodic function, 
which must be supplied in line 118, so the argu- 
ment of the periodic function must have the form : 



RMS AND AVERAGE VALUE OF A PERIODIC WAVEFORM 

RMS AND AVERAGE VALUES ARE DETERMINED FROM: 

1 . DESCRETE POINTS 

2. A DEFINED FUNCTION ? 2 

CYCLE PERIOD ? 0,16667 

# DIVISIONS FOR 1 CYCLE ? 50 



RMS VALUE = .707107 

HALF CYCLE AVERAGE VALUE = .634111 



The Analysis of Signals 

argument = (A*I)/57.92577 

to convert the angle from degrees to radians. If 
the average value is zero, then the half -cycle av- 
erage is determined. Furthermore, Simpson's rule 
requires that the number of data points be an odd 
number. In addition, careful attention must be 
paid to discontinuities which occur during the 
cycle, as will be illustrated in a later example. 

Example 3-1 

Determine the average and rms values of an 
ordinary 60-Hz sine wave whose amplitude varies 
between -1.0 and +1.0 volts. Fig. 3-2 shows the 
output for the RMSAV program, when the sine 
wave function is supplied in line 118, giving 51 
data points for one complete cycle. Since the full 
cycle average value for this sine wave is zero, the 
program then computes the half-cycle average in 
addition to the rms value. Using classical methods, 
the half-cycle average and rms values for a sine 
wave are 0.637 and 0.707 times the peak voltage. 

Example 3-2 

Consider the 50% duty cycle square wave, 
shown in Fig. 3-3, which varies between zero and 
5 volts. We will first run the RMSAV program by 
entering discrete data points instead of describ- 




0.25 0.5 0.75 1.0 1.25 



1 CYCLE 



Fig. 3-3. 50% duty cycle square wave. 
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Fig. 3-2. Output for RMSAV program. 



READY 
> 
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Fi)?. 3-4. Results when 21 data points are used. 



RMS AND AVERAGE VALUE OF A PERIODIC WAVEFORM 

RMS AND AVERAGE VALUES ARE DETERMINED FROM: 

1 . DESCRETE POINTS 

2. A DEFINED FUNCTION ? 1 

CYCLE PERIOD ? 1 .0 

# DIVISIONS FOR 1 CYCLE ? 20 



f 



TIME 

? 5 
.05 ? 5 
.1 ■? 5 
,15 ? 5 
.2 7 5 
.25 ? 5 
.3 7 5 
.35 ? 5 
.4 7 5 
.45 7 5 
.5 7 2.5 
.55 7 
,6 7 
.65 7 
.7 7 
.75 7 
.8 7 
,85 7 
,9 7 
.95 7 

1 7 

RMS VALUE = 3.50595 
AVERAGE VALUE =2,5 



. -"i ''J 



■ :i..\i - 



.i-''i ^^J 



READY 
> 



ing the function. Square waves are unusual func- 
tions in that they have discontinuities. In order 
to minimize computational error, it is best to 
assign a value that is midway between the mini- 
mum and maximum values of the square wave 
(i.e., 2.5 volts) as the value of the point where the 
discontinuity occurs during the cycle. For the situ- 
ation where the square wave is discontinuous at 
both the beginning and the end of the cycle, we 
use the values of 5 and volts, respectively. When 
numerical integration methods are used, greater 
accuracy is achieved when the number of points 
is made as large as possible. Fig. 3-4 shows the 
results when 21 data points are used (20 cycle di- 
visions plus the value at t = 0). 

Using classical methods to cheek our results, 
we would find that the average value of such a 
waveform is one-half its peak value, or 2.5, while 
the rms value is 0.707 times the peak, or 3.535. 
Increasing the number of data points usually leads 
to greater accuracy. 



However, suppose we had described the square 
wave mathematically instead of describing it by 
discrete points. Unfortunately, we still have diffi- 
culty in handling the discontinuity at t = 0.5 sec- 
ond. One way around this problem is to run the 
program twice and then average the results. In 
the original RMSAV listing, lines 116-118 are re- 
placed by the following statements : 

116 FOR 1:^0 TO (C/2)-1: C(l)=5: NEXT I 

117 C(C/2)=5 

118 FOR l=(C/2)-|-1 TO C: C(l)=0: NEXT I 

SO that the results of the first run will be slightly 
higher than the expected value, as shown in Fig. 
3-5A. Then replace line 117 by C(C/2)=0 so that 
the results of the second run will be slightly lower 
than the expected values, as shown in Fig. 3-5B. 
The two results are then averaged, in which case 
the average value is the average of 2.51667 and 
2.48333, or 2.50000, while the rms value is the 
average of 3.5473 and 3.52373, or 3.535515. 
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RMS AND AVERAGE VALUES ARE DETERMINED FROM: 
1 . DESCRETE POINTS 
:«l.'. 2. A DEFINED FUNCTION ? 2 -.■_ 

CYCLE PERIOD ? 1 .0 

# DIVISIONS FOR 1 CYCLE ? 100 

. RMS VALUE = 3.5473 

AVERAGE VALUE =2.51667 

■"■-:.'• 

READY 

> : ■ _'C 



{A) Overestimate. 



RMS AND AVERAGE VALUES ARE DETERMINED FROM: 

1 . DESCRETE POINTS i ■ 

2. A DEFINED FUNCTION ? 2 

CYCLE PERIOD ? 1 .0 - 

# DIVISIONS FOR 1 CYCLE ? 100 

RMS VALUE = 3.52373 
AVERAGE VALUE =2.48333 



(jB) Underestimate. 



READY 
> 



Fig. 3-5. Rms and average value of a periodic waveform. 
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Fig. 3-6. Sawtooth waveform. 

Example 3-3 

Determine the average and rms values for the 
sawtooth waveform shown in Fig. 3-6. Unlike the 
square wave which has a discontinuity in the mid- 
dle as well as at the beginning and end of the 
cycle, the sawtooth is discontinuous only at the be- 
ginning and end of the cycle. 

Fig. 3-7 shows the results using 11 data points, 
with no corrections made for the pair of discon- 
tinuities. The starting point is zero, while the last 
point is the peak value of -t-2.5 volts. Using clas- 
sical methods, the sawtooth has an average value 
that is one-half its peak, or 1.25 volts, while the 
rms value is 0.577 times the peak, or 1.443 volts. 

Like the square wave, we can repeat this ex- 
ample by defining the waveform mathematically 
as a straight line with a slope equal to (2.5/0.75) . 
Therefore, lines 116-118 would read as: 



116 FOR 1=0 TO c 
' 117 C(l)=2.6*l/C 

118 NEXT I 

By dividing the waveform into 100 increments, 
the output results of Fig. 3-8 show that there is 
no difference! 

FOURIER SERIES 

' Any periodic waveform can be expressed in 
terms of a Fourier series provided that it has a 
finite average value over one complete cycle ; 
there are a finite number of discontinuities, if 
any exist, over one complete cycle ; and it has a 
finite number of maximum positive and negative 
values. When these three conditions are met, a 
Fourier series for a periodic waveform f (t) ex- 
ists, and can be written by the following trigo- 
nometric form : 

f (t) = Ao + Aicos(wt) 4- A.cos(2wt) -I- . . . 

+ Bisin(&)t) -h B2sin{2o)t) -1- . . . 

. ,., .■; (Eq.3-3) 

consisting of a dc, or constant term and an infinite 
series of harmonically related sines and cosines. 
However, Equation 3-3 may be stated in a form 
using only cosine and phase angle terms, so that : 

f (t) =Co + CiCOs(ajt-Fd>i) -FC2Cos(2tjt + <f)2) + ... 

(Eq. 3-4) 
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Fig. 3-7. Results when 11 data points are used. 
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RMS AND AVERAGE VALUE OF A PERIODIC WAVEFORM 

RMS AND AVERAGE VALUES ARE DETERMINED FROM: 
■ ■■ 1 . DESCRETE POINTS 

2. A DEFINED FUNCTION ? 1 

CYCLE PERIOD ? 0.75 

# DIVISIONS FOR 1 CYCLE ? 10 

TIME 
? 

.075 ? .25 ;i. 
.15 ? .5 
.225 ? .75 
.3 ? 1.0 
.375 7 1.25 
,45 ? 1.5 
,525 ? 1 .75 
.6 ? 2.0 
.675 ? 2,25 
.75 ? 2.5 

RMS VALUE = 1 .44338 
AVERAGE VALUE =1.25 

READY 
> 



Equation 3-4 is sometimes referred to as the mag- 
nitude and phase Fourier series, and is related to 
Equation 3-3 by 



An = Cncos (nojt) 
Bn - CnSin(na)t) 
Cn= (A,;-^ + B„=')i/2 
(#.„=tan-MB„/A„) 



(Eq. 3-5A) 
(Eq.3-5B) 
(Eq.3-5C) 
(Eq.3-5D) 



The FSERIES program listed in Fig. 3-9 cal- 
culates the A, B, and C coefficients in addition to 
the phase angle <^ for a given periodic waveform. 
As was the case with the RMSAV program, the 
waveform may be expressed either as a number of 
equally spaced data points, or as a periodic func- 
tion of time, which must be supplied in line 201, 
which assumes the form that 1 complete cycle 



equals 6.283185 radians. Line 200 sets the sam- 
pling rate as a fraction of 1 cycle. For the values 
shown, the function in line 201 will be computed 
every l/40th of a cycle (i.e., .025), or every 9 
degrees. 

If equally spaced, discrete data points are used 
to describe the waveform, the number of data 
points must be an odd number, while the number 
of coefficients must be less than half the number 
of data points minus two. Like the RMSAV pro- 
gram, careful attention must be paid to functions 
that have discontinuities, whose number must be 
finite. 

When the coefficients are evaluated, there may 
be some slight errors, especially since all compu- 
tations are done with single precision arithmetic. 
However, by recognizing the symmetrical behav- 



Fig. 3-8. Results mathemati- 
cally describe sawtooth wave. 



RMS AND AVERAGE VALUE OF A PERIODIC WAVEFORM 

PmS AND AVERAGE VALUES ARE DETERMINED FROM: 

1 . DESCRETE POINTS 

2. A DEFINED FUNCTION ? 2 

CYCLE PERIOD ? 0. 75 

# DIVISIONS FOR 1 CYCLE ? 100 

RMS VALUE = 1 .44338 
AVERAGE VALUE = 1.25 

READY 
> 
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100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 

133 

134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 

154 
155 
156 
157 
158 
200 
201 
202 



•FOURIER SERIES PROGRAM 

DIM F{100),C(100),D(100),E{100),A2(100) 

CLS:PRINT"FOURIER SERIES TO BE COMPUTED FROM:' 

PRINT:PRINT" 1. DISCRETE DATA POINTS" 

INPUT" 2. AN EQUATION " ; Z9 

IF Z9=1 THEN 106 ELSE 200 

CLS:INPUT"NUMBER OF DATA POINTS ";N 

IF {N/2)<>INT( (N/2)+.5) THEN 108 ELSE 106 

INPUT"NUMBER OF HARMONICS ";N8 

IF N8>{N/2)-2 THEN 108 

IF Z9=1 THEN 111 ELSE 115 

FOR 1=1 TO N 

PRINT"POINT";I; 

INPUT F{I) 

NEXTI 

INPUT"SIGNAL PERIOD ";T 

N3=N-1 

A=2*3.1415927/T 

T3=T/N3 

A0 = 

FOR 1=1 TO N3 STEP 2 

AO=AO+F (I)+4*F(I+l)+F{I + 2) 

NEXT I 

A0=A0*T3/(3*T) 

IF ABS(A0)<.001 THEN A0=0 

FOR X=1 TO N8 

CLS:PRINT@464, "CALCULATIONS IN PROGRESS" 

PRINT@528, "HARMONIC #";X 

C=0:D=0:E=0:A2=0 

T1=-T3 

FOR J=l TO N3 STEP 2 - -. ■■ 

T1=T1+2*T3 

C=C+{F{J)*C0S(X*A*(T1-T3) ) ) + {4*F ( J+1 ) *COS (X*A*T1 ) ) + 

(F(J+2)*C0S(X*A* (T1+T3) ) ) 
D=D+(F(J)*SIN(X*A*(T1-T3) ) ) + (4*F ( J+1 ) *SIN (X*A*Tl ) ) + 

(F(J+2)*SIN(X*A*(T1+T3) ) ) 
NEXTJ 

C=2*C*T3/(3*T) :D=2*D*T3/(3*T) 
IF ABS(C)<.005 THEN C=0 
IF ABS(D)<.005 THEN D=0 
E=SQR{C*C+D*D) 

IF OO THEN 147 ELSE 140 



!■ -u^im^K -.*«■'' Ii.t^rlr»>f' 



■n 



THEN 
THEN 
THEN 



148 
146 
143 



ELSE 
ELSE 
ELSE 



141 
142 

144 



THEN 145 ELSE 149 



IF C<0 AND D<0 

IF ,C=0 AND D>0 

IF C=0 AND D=0 

A2=0:GOTO 150 

IF C=0 AND D<0 

A2=-90:GOTO 150 

A2=90:GOTO 150 

A2=(ATN(D/C))*180/3.14159:GOTO 150 

A2=-1 80+ (ATN (D/C) ) * 1 80/3 . 1 41 59 :GOTO 1 50 

A2=180+(ATN(D/C))*180/3.14159 

C{X)=C:D(X)=D:E(X)=E:A2 (X)=A2 

NEXTX 

CLS:PRINT"DC TERM, A(0) = ";A0 

PRINT:PRINT"HARM0NIC";TAB(13) "COS TERM" ; TAB (25) "SIN TERM" ; 

TAB (38) "MAGNITUDE"; TAB (52) "PHASE" 

FOR I=1T0N8 

PRINTI;TAB(13)C(I) ; TAB (25) D (I) ;TAB(38)E(I) ; TAB (52) A2 (I) : NEXTI 

F=1/T 

PRINT:PRINT"FUNDAMENTAL FREQUENCY =";F;"MZ" 

PRINT: END 

Y=1 :FOR 1=0 TO 1 STEP .025: 'SAMPLE FUNCTION 

P{Y)=162*SIN(6. 283185*1) : 'SAMPLE FUNCTION 

Y=Y+1:NEXT I:N=Y-1:G0T0 108 : 'SAMPLE FUNCTION 



Fig. 3-9. Listing for FSERIES program. 
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ior of the particular function, one can predict 
which coefficients can be ignored. 

Waveforms with certain types of symmetry are 
void of particular harmonics, such that : 

1. Odd functions have only sine terms, so that 
all cosine coefficients are zero. 

2. Even functions have only cosine terms, so 
that all sine terms are zero. 

3. Functions that exhibit half-wave symmetry 
have only odd harmonics present. 

4. Functions that are symmetrical about the in- 
dependent variable axis have an average 
value (i.e., the dc constant term) equal to 
zero. 

Using triangle waves, Fig. 3-10 illustrates exam- 
ples of those which are odd or even functions, 
those having only odd harmonics, and having zero 
average value. 

Example 3-4 

Compute the Fourier series for a simple 60-Hz, 
162~voU peak cosine wave. From its symmetry, 
we would expect that its average value is zero, 
and that only odd harmonic cosine terms are 
present. Furthermore, since we have a pure cosine 
wave, all harmonics except the fundamental, or 
first harmonic should be zero. 

Lines 200 and 201 should then be stated as 

200 Y=1:F0R 1=0 TO 1 STEP .025 , 

201 F(Y)=162*COS(6.283185*l) ' 

which computes a data point every 9 degrees, or 
l/40th of a cycle. Fig. 3-11 shows the results of 
the program. The average value is zero, while all 
harmonic terms are zero, except the fundamental 
cosine wave. 

Example 3-5 

Determine the Fourier series coefficients of a 
10-Hz square wave whose amplitude varies be- 
tween —1 and +1 volts. Since such a wave is both 
an odd function and has half-wave symmetry, we 
would then expect that the average value, all co- 
sine terms, and all even sine terms will be zero. 
Fig. 3-12 shows the output results when 21 data 
points are used, so that: 

Points 1 - 10: +1 

Point 11 : (the half-cycle discontinuity) 

Points 12 - 21 : -1 

As a comparison, it can be shown that the 
Fourier series for this square wave is : 



'''"■"f(t)=iXy 8in(2n + l) 

■^ n=0 



•■:T3iy,s 



2n-Hl 

(Eq. 3-6) 

If desired, the square wave can be expressed 
mathematically as was the case for determining 
the average and rms values in Example 3-2, and 
averaging the results of two runs. This is left as 
an optional exercise for the reader. 

Example 3-6 

Determine the Fourier coefficients for the saw- 
tooth wave previously shown in Fig. 3-6. From the 
symmetry of the wave, we would expect that, 
since it is an odd function, only sine terms will be 
present. 

Fig. 3-13 shows the results, in which all cosine 
terms are zero. As a comparison, it can be shown 
that the Fourier series for this sawtooth is : 



-,,. _V V ^ sin (nwt) 



n 



(Eq. 3-7) 




(A) ODD FUNCTION WITH ZERO AVERAGE VALUE 




IB1 EVEN FUNCTION WITH ZEM AVERAGE VALUE 




tCl HOH-ZERO AVERAGE VALUE 

Fig. 3-10. Symmetry functions. 
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FOURIER SERIES TO BE COMPUTED FROM: 

1 . DESCRETE DATA POINTS 

2. AN EQUATION ? 2 

NUMBER OF HARMONICS ? 7 
SIGNAL PERIOD ? 0.01667 



DC TERM, A{0) = 



■.n n;-. 



•;*' 



V. J 



HARMONIC 


COS 


TERM 


SIN 


TERM 


MAGNITUDE 


PHASE 


1 


162 











162 





2 




















3 




















4 




















5 




















6 




















7 




















FUNDAMENTA 


L FREQU 


ENCY = 


= 59.988 


HZ 







READY 
> 



Pig. 3-11. Foarier series computed. 



FOURIER TRANSFORM 

Whereas the Fourier series is used to represent 
the harmonic, or spectral content of any periodic 
function, the Fourier transform is intended for 
those signals which are not periodic, but never- 
theless continuous. The mathematical transfor- 
mation of a function of time f (t) into a function 
of frequency F(s) is given by the equation: 



F(s) = Jf(t)e-'tdt (Eq.3-8) 



Instead of being able to represent the Fourier 
transform of a continuous function as a continu- 
ous function of frequency, the DFTRANS pro- 
gram of Fig. 3-14 computes a discrete Fourier 
transform so that the frequency function is now 
approximated by discrete points instead of a con- 
tinuous function. 

The continuous time function is sampled N 
times, so that N = 2\ where J is an integer. If the 
number of sample points is 64, then J must equal 
6. In the classical sense, as N is made larger, the 
discrete Fourier transform approaches the con- 
tinuous function described by Equation 3-8. 

When run, the DFTRANS program requires 
that the number of data point samples (N) in 



Table 3-1. DFTRANS Program 







Dricrate 


DaU Points 


Fraqucnciai 


N 


J 


16 


4 


8 


32 


5 


16 


64 


6 


32 


128 


7 


64 


256 


8 


128 



line 106; consequently, the value for J must also 
be defined, as summarized in Table 3-1. Because 
this program generates a spectrum plot that can 
contain up to 128 discrete frequencies, the maxi- 
mum number of sampled data points is 256, in 
which case J = 8. 

We have the choice to compute the Fourier 
transform from either by entering discrete data 
points describing the waveform, or mathemati- 
cally defining the function. Lines 115 to 120 de- 
scribe, as an example, a rectangular pulse having 
a duty cycle of 87.5%, so that the amplitude is 
logic one for 7/8ths of the period and zero for the 
remainder. After the input function is processed, 
the Fourier transform is tabulated in terms of its 
real and imaginary components, as well as its 
magnitude for each harmonic starting with the 
fundamental (i.e., harmonic "0"). In addition, 
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fourier series to be computed fromi 

1 . descrete data points 

2. an equation ? 1 
number of data points ? 21 
number of harmonics ? 7 
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.at- -j\ 



.\ 



POINT 
POINT 
POINT 
POINT 
POINT 
POINT 
POINT 
POINT 
POINT 
POINT 
POINT 
POINT 
POINT 
POINT 
POINT 
POINT 
POINT 
POINT 
POINT 
POINT 
POINT 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 

n 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 



SIGNAL PERIOD ? 0.1 



DC TERM, A(0) = 



' ■ -.•^.<i I,', ti^l^ wl't-:; ,IJ tJ '- %''- 



HARMONIC 


COS 


TERM 


SIN TERM 


MAGNITUDE 


PHASE 


1 







1.27331 


1.27331 


90 


2 
















3 







.42649 


.42649 


90 


4 
















5 







.266667 


.266667 


90 


6 
















7 







.232746 


.232746 


90 


FUNDAMENTAL 


FREQUENCY = 


= 10 HZ 






READY 












> 













Pig. 3-12. Results when 21 data points are used. 



these values are displayed in groups of 10. Press- 
ing the ENTER key continues the listing until 
N/2 harmonics are displayed. At the end of the 
listing, hitting the ENTER key once more gives 
the magnitude spectrum plot as a function of its 
harmonic number. For the program listing of 
Fig. 3-14, the spectrum plot will show 16 har- 
monics in addition to the fundamental. 

Example 3-7 

Compute the discrete Fourier transform for the 
function already described in Fig. 3-14, up to 
and including the 64th harmonic. 



Before the program is run, line 106 must be 
changed so that N = 128 and J = 7. Fig. 3-15 
shows the output results for the first nine har- 
monics plus the fundamental while the spectrum 
plot is shown in Fig. 3-16. Fig. 3-17 shows the 
spectrum plot for a 25% duty cycle pulse (64 
harmonics). 

ANALYSIS OF 
DAMPED OSCILLATIONS 

When an underdamped second-order system en- 
counters a sudden change at its input, such as 
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FOURIER SERIES TO BE COMPUTED FROM: 

1 . DESCRETE DATA POINTS 

2. AN EQUATION ? 2 

NUMBER OF HARMONICS ? 7 
SIGNAL PERIOD ? 0.75 



r^n-.M'? 



s;'-i^."*iV s. 



T-.'i 



DC TERM, A(0 


) = 


1.25 






HARMONIC 
1 
2 
3 
4 
5 
6 
7 


COS 









TERM 


SIN TERM 
-.795783 
-.397957 
-.265499 
-.199537 
-.160375 
-. 134881 
-. 117562 


MAGNITUDE PHASE 
.795783 -90 
.397957 -90 
.265499 -90 
.199537 -90 
.160375 -90 
.134881 -90 
.117562 -90 


FUNDAMENTAL 


FREQUENCY = 


1 .33333 HZ 




READY 
> 










1 






Fig. 3-13. Results with all cosine terms zero. 
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the voltage controlled oscillator of a phase-locked 
loop shifting from one frequency to another, the 
output tries to follow this change, but oscillates 
about a steady-state value for a time and even- 
tually settles out. This process is illustrated in 
Fig. 3-18 for an impulse response, and in Fig. 
3-19 for a step response. How fast this process is 
completed depends on the damping factor of the 
system. For smaller values of damping, it takes 
longer for the oscillations to settle down. 

The DAMPED program listing in Fig. 3-20 de- 
termines the damping factor, the natural and 
damped frequencies. In addition, the program de- 
termines the normalized amplitude of the wave- 
form at a given time. The required inputs are 



the positive amplitudes of two consecutive peaks, 
which will be one cycle apart, and the time period 
for one cycle. If desired, the resulting damped 
oscillation is plotted on the video display. 

Example 3-8 

From oscilloscope measurements of a damped 
oscillation resulting from a step response, it was 
measured that two consecutive peaks, like those of 
Fig. 3-19, had amplitudes of eight and three di- 
visions, respectively. In addition, the period for 
one complete cycle was measured as 0.46 ms. We 
want to know what will the amplitude be after 
1.5 ms, when the peak input is 0.253 volt. Fig. 
3-21 shows the results of the analysis. 
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100 ' DISCRETE FOURIER TRANSFORM PROGRAM (DFTRANS) 

101 CLS: PRINT, "DISCRETE FOURIER TRANSFORM PROGRAM" 

102 DIM A(256), B(256), ZZ (256) ,X (256) , Y (256) 

103 PRINT:PRINT"DISCRETE FOURIER TRANSFORM IS COMPUTED FROM:" 

104 PRINT" 1. DISCRETE DATA POINTS" 

105 INPUT" 2. A DEFINED FUNCTION ";Z9 

106 N=32:J=5 ^- 

107 IF Z9=1 THEN 108 ELSE 112 "'- ^ 

108 FOR Z=0 TO N 

109 PRINTZ ; 

110 INPUT"VALUE = ";A(Z) 

111 NEXT Z ' ■ 

112 P=3. 1415927 

113 IF Z9=1 THEN 121 

114 PRINT"CALCULATION OF INPUT FUNCTION" 

115 FOR Z=0 TO N*7/8 

116 A(Z)=1 

117 NEXTZ 

118 FOR Z=N*7/8 TO N 

119 A(Z)=0 

120 NEXTZ 

121 FOR Z=0 TO N-1 

122 A(Z)=A(Z)/N 

123 NEXTZ 

124 CLS:PRINT" IN PROGRESS" 

125 C=N/2:D=1 :E=P*2/N 

126 FOR 1=1 TO J 

127 F=0:G=C 

128 FOR S=1 TO D 

129 H=INT(F/C) 

130 GOSUB 164 

131 Q=R 

132 A1=C0S(E*Q) :A2=-SIN(E*Q) 

133 FOR K=F TO G-1 

1 34 A3=A (K) :A4=B (K) ,-: ^ ^ M - ( 

135 B1=A1*A(K+C)-A2*B{K+C) 

136 B2=A2*A(K+C)+A1*B(K+C) 

137 A(K)=A3+B1:B{K)=A4+B2 ■.-"■:.::■<:'■.■,,:■,* ■ 

138 A(K+C)=A3-B1 :B(K+C)=A4-B2 1 

139 NEXTK 

140 F=F+2*C:G=G+2*C 

141 NEXTS "'■" *■' ■"•■ 

142 C=C/2:D=D*2 

143 NEXTI 

144 GOTO 145 

145 U=0 

146 Z=0 

147 CLS 

148 PRINT"HARMONIC";TAB(10);"RE(Z) ";TAB(25) ; "IM (Z) " ; TAB (39) ;"Z" 

149 PRINT"========";TAB(10) -"====="; TAB (25) ;"====="; TAB (37) "=====" 

150 H=U 

151 GOSUB 172 

152 PRINTTAB(2) ;U;TAB(8) ;A(R) ; TAB (23) ;B (R) ;TAB (37) ; ZZ (R) 

153 Y(U)=ZZ{R) :X(U)=U 

154 U=U+1 :Z=Z+1 

155 IF Z>9 THEN 156 ELSE 158 

156 PRINTtPRINTzINPUT^HIT <ENTER> TO CONTINUE ";Z9 

157 GOTO 146 

158 IF U>N/2 THEN 160 

159 GOTO 150 

160 PRINT:PRINT:INPUT"PRESS <ENTER> FOR SPECTRUM PLOT ";FF 

Fig. 3-14. Listing for DFTRANS Program. 
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161 N=U:CLS I.' ■ . 4' ■ " - ■ :■ ' v ^--- - -.--r-,---- • -''- 

162 GOTO 176 

163 END 

164 R=0:N1=N 

165 FOR W=1 TO J 

166 N1=Nl/2 iii,' 

167 IF H<N1 THEN 170 

168 R=R+2+(W-1) ..■ ilSJ.I ft^i ^' 

169 H=H-N1 1 . , r 

170 NEXTW 

1 7 1 RETURN ■ '■ ( ■"> . • - 

172 GOSUB 164 

173 ZZ(R)=SQR(A(R)-f2+B{R)+2) 

174 RETURN 

175 END - : ...r '"^ 

176 'SPECTRUM PLOT ROUTINE a' 

177 Y1=Y(0) :Y2=Y(0) :X1=X(0) :X2=X(0) - 

178 FOR 1=1 TO N ■ • ^ 

179 IF(Y1-Y(I) )<=0 THEN 182 ELSE 180 

180 Y1=Y(I) 

181 GOTO 184 

182 IF(Y2-Y(I) )<0 THEN 183 ELSE 184 

183 Y2=Y{I) 

184 IF(X1-X(I) )<=0 THEN 187 ELSE 185 

185 X1=X(I) 

186 GOTO 189 ■ •■ r 

187 IF(X2-X{I))<0 THEN 188 ELSE 189 *'*' ^ ' 

188 X2=X(I)+1 

189 NEXTI 

190 XD=X2-X1 :YD=Y2-Y1 

191 FOR X=0 TO 127:SET(X,36) :NEXTX 

192 FOR X=0 TO 127 STEP 1 6 : SET (X, 37) :NEXTX: SET (1 27, 37) 

193 PRINT@831 , XI :PRINTia857, "HARMONIC NUMBER" :PRINT@890,X2 

194 FOR I=0TO N 

195 X=128-((X2-X{I))*128/XD) :Y=35-{ (Y (I) -Yl) *35/YD) 

196 IF X>127 THEN 200 

197 YT=Y ^'' 

198 FOR Y=YT TO 35: SET (X, Y) :NEXTY 

199 NEXTI 

200 INPUTFF 



Fig. 3-14 (cont). Listing for DFTRANS program. 
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Fig. 3-15. Output results for 
first nine harmonics. 



HARMONIC 


1 
2 
3 
4 
5 



RE{Z) 

.875 

■■ 111373 

-.0756073 

-.030777 
7.8125E-03 
.0290632 
.0302401 
.0170627 


■-0111562 



IM{Z) 



■-493682 
-.0834198 

-0931632 
-.0793217 
-.0513037 
■-0224275 
-3.83156E-03 


-7.8571 1E-03 



Z 



.875 

.121824 

. 1 12585 

.0981 153 

.0797055 

.0589639 

.0376491 

.0174876 



-0136454 



HIT <ENTER> TO CONTINUE ? 



Ilii. ..H... 



■ ■■■lll.lllllll.llltlll.lllllll.MIIIM.Itttltl 



HARMONIC NUMBER 




Fig. 3-16. Video spectrum plot. 



Pig. 3-17. Video spectrum plot for a 25% duty cycle pulse. 



Fig. 3-18. Transient response 
to an impulse input. 




STEADY-STATE VALUE 



IMPULSE INPUT 
TRANSIENT RESPONSE 



?.'• - - 1 ^» -. «* xt^ ■ 
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Pig. 3-19. Transient response 
to a step input 




STEADT-SrATE VALUE 



STEP INPUT 
TRANSIENT RESPONSE 



\ < 



- [),. ).«.'fl ••iV' 
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100 
101 
102 
103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 



'ANALYSIS OF DAMPED OSCILLATIONS (DAMPED) 

DIM X(101) ,Y(101 ) 

CLSiPRINT /'ANALYSIS OF DAMPED OSCILLATIONS" 

PRINT: PRINT"AMPLITUDES ARE MEASURED FROM STEADY-STATE VALUE" 

PRINT: INPUT"POSITIVE AMPLITUDE OF 1ST CYCLE ";Y1 

INPUT"POSITIVE AMPLITUDE OF 2ND CYCLE ";Y2 

INPUT"CYCLE PERIOD (IN SECONDS) ";T 

X=Y1/Y2:G=L0G (X) * ( 1 /6 . 283 19 ) 

D=G/SQR(1+G■^2) 

PRINT:PRINT"THEN: " 

G=INT{G*1000+.5)/1000 

PRINT"DAMPING FACTOR =";G 

FF=1/T:WN=FF*6.28319 

FD=FF*SQR(1-D + 2) : V7D=FD*6 . 283 1 9 

A=D*WN:P=ATN(WN/A) 

FF=INT(FF*10+.5)/10:WN=INT(WN*10+.5)/10 

FD=INT(FD*10+.5)/10:WD^INT(WD*10+.5)/10 

PRINT"NATURAL FREQUENCY =";FF;"HZ ("; WN; "RAD/SEC )" 

PRINT"DAMPED NATURAL FREQUENCY =";FD;"HZ ("; WD; "RAD/SEC )" 

PRINT:PRINT"DO YOU WISH TO KNOW THE RESPONSE AT A SPECIFIC TIME, OR" 

PRINT"HAVE A GRAPH OF THE WAVEFORM" 

INPUT" {ENTER <T>IME, <G>RAPH, OR <N>0) " ; R$ 

IF R$<>"T" AND R$<>"G" AND R$<>"N" THEN 119 ELSE 123 

IF R$="T" OR R$="G" THEN 124 ELSE 134 

CLS:PRINT"IS THE RESPONSE AS A RESULT OF A:" 

PRINT@84,""; 

INPUT"<S>TEP OR <I>MPULSE INPUT ";I$ 

IF R$="T" THEN 128 ELSE 135 

INPUT"TIME ";T 

IF I$="S" THEN 131 ELSE 130 

Y= (WN/WD) *EXP (-A*T) *SIN (WD*T) iGOTO 132 

Y=1- (WN/WD) *EXP{-A*T)*SIN(WD*T+P) 

PRINT"AMPLITUDE =";Y 

GOTO 1 1 9 

END 

CLS:INPUT"MIN, MAX TIME ";XA,XB 

N=101 :I=1 

C={XB-XA)/100 

FOR XT=XA TO XB STEP C 

IF I$="S" THEN 141 ELSE 140 

Y= (WN/WD) *EXP (-A*XT) *SIN (WD*XT) : GOTO 142 

Y=1- (WN/WD) *EXP(-A*XT)*SIN(l"ro*XT+P) 

X{I)=XT:Y{I)=Y:I=I+1 :NEXT XT 

GOSUB 145 

END 

' X-Y PLOT SUBROUTINE 

IF I$="I" THEN T$="IMPULSE RESPONSE" ELSE T$="STEP RESPONSE" 

' DETERMINE MIN & MAX VALUES OF X & Y 

Y1=Y{1) :Y2=Y(1) :X1=X(1) :X2=X(1) 

FOR I=2T0N 

IF(Y1-Y(I) )<=0 THEN 153 ELSE 151 ' 

Y1=Y(I) 

GOTO 155 

IF(Y2-Y(I) )<0 THEN 

Y2=Y(I) 

IF{X1-X(I) )<=0 THEN 158 

X1=X{I) 

GOTO 160 

IF(X2-X(I))<0 THEN 159 

X2=X(I) 

NEXTI 

PRINT"CURRENT MIN - MAX X VALUES ARE: ";Xl,X2 

Fig. 3-20. Listing for DAMPED program. 



154 ELSE 155 



ELSE 156 



ELSE 160 



Continued on next page. 



H The Analysis of Signals 

162 PRINT"CURRENT MIN - MAX Y VALUES ARE: ";Yl,Y2 r, , «, 

163 INPUT"DESIRED MIN, MAX X-AXIS SCALE: ";X1,X2 

164 INPUT"DESIRED MIN, MAX Y-AXIS SCALE: ";Y1,Y2 

165 XD=X2-X1 :YD=Y2-Y1 

166 ' PLOT X-Y AXES AND SCALES 

167 CLS 

168 PRINTED, Y2:PRINT@128,Y1 + (YD*4/5) :PRINTia256 , Yl + {YD*3/5) 

169 PRINTia448,Yl+(YD*2/5) : PRINT@576 , Y1 + (YD/5) :PRINT@704 , Yl 

170 FOR Y=0TO35 

171 SET(13,Y) :NEXTY 

172 FOR X=15T0115:SET(X,37) :NEXTX 

173 FOR X=15T0115 STEP1 : SET (X , 38) :NEXTX • . .^. 

174 FOR Y=0TO35 STEP 7 

175 SET(12,Y) 

176 NEXTY 

177 PRINTfa838,X1 :PRINT(a848 ,X1 + (XD/5) : PRINT@858 ,X1 + (XD*2/5) 

178 PRINT@868,X1+(XD*3/5) :PRINT@878 ,X1+ (XD*4/5) :PRINT@888 ,X2 

179 PRINTfl916,T$ 

180 FOR 1=1 TON 

181 ' PLOT POINTS 

182 X=115-( (X2-X(I) )*100/XD) :Y=3 5-( (Y {I ) -Yl ) *35/YD) 

183 IFX>115 THEN 185 ELSE 184 _ 

184 SET(X,Y) :NEXTI ^ 

185 INPUT"HIT <ENTER> TO CONTINUE ";FF:CLS 

186 INPUT"ANY CHANGES IN SCALE FACTORS (YES/NO) ";A$ 

187 IF A$="YES" THEN 161 ELSE 188 

188 RETURN 

Fig. 8-20 (cont). Listing for DAMPED program. 

ANALYSIS OF DAMPED OSCILLATIONS 

AMPLITUDES ARE MEASURED FROM STEADY-STATE VALUE 

POSITIVE AMPLITUDE OF 1ST CYCLE ? 8 

POSITIVE Af4PLITUDE OF 2ND CYCLE ? 3 „ 

CYCLE PERIOD (IN SECONDS) ? 0.46E-3 

THEN: 

DAMPING FACTOR = .156 

NATURAL FREQUENCY = 2173.9 HZ ( 13659.1 RAD/SEC ) 

DAMPED NATURAL FREQUENCY = 2147.9 HZ ( 13495.7 RAD/SEC ) 

DO YOU WISH TO KNOW THE RESPONSE AT A SPECIFIC TIME, OR 
HAVE A GRAPH OF THE WAVEFORM 

{ENTER <T>IME, <G>RAPH, OR <N>0) ? T 
IS THE RESPONSE AS A RESULT OF A: 
<S>TEP OR <I>MPULSE INPUT ? I 
TIME ? 1 .5E-3 
AMPLITUDE = .0422664 '''-' 

DO YOU WISH TO KNOW THE RESPONSE AT A SPECIFIC TIME, OR 
HAVE A GRAPH OF THE WAVEFORM 

{ENTER <T>IME, <G>RAPH, OR <N>0) ? G 
IS THE RESPONSE AS A RESULT OF A: 
<S>TEP OR <I>MPULSE INPUT ? I 
MIN, MAX TIME ? 0,2E-3 



'JiJ 



CURRENT MIN - MAX X VALUES ARE: 1.98E-03 

CURRENT MIN - MAX Y VALUES ARE: -.490691 .799866 

DESIRED MIN, MAX X-AXIS SCALE: ? 0,2E-3 
DESIRED MIN, MAX Y-AXIS SCALE: ? -.5,1.0 

Fig. 3-21. Analysis of DAMPED oscillations. 
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Basic Statistics and the Analysis of Data 



In any experimental endeavor, there usually 
comes a time when we must ask ourselves whether 
or not the data is a true representation of the ex- 
periment. Although this chapter is not meant to 
be a course in statistics, it is, nevertheless, im- 
portant to include several useful statistical meth- 
ods. Included are programs for computing the 
mean and standard deviation of a set of data, and 
regression analysis. 

LEAST SQUARES 
REGRESSION CURVES 

Almost every experimenter seeks to establish a 
relationship between two or more variables, such 
as the variation of impedance with frequency, or 
the variation of a transistor operating point as a 
function of ambient temperature and its current 
gain. As an aid in establishing a relationship (or 
lack of it), it is often desirable to express the re- 
lationship in the form of an equation. 

Relationship Between Two Variables 

Listed in Table 4-1 are several common forms 
of mathematical relationships used to relate the 
behavior of two variables. 

To decide which equation should be used, it is 
helpful to graph the data in the form of a scatter 
diagram, as shown in Fig. 4-1, which can be com- 
pared against one of the general curves shown 
in Fig. 4-2. 

Table 4-1. Common Forms of Mathematical 
Relationships 



Linear 


y = mx + b 


inverse 


Y = l/[mx + b) 


Nth order (polynomial} 


y = ao + aix + aax^ + . . . 


Geometric 


V = ax'' 


Exponential 


y = ae^- 



Fig. 4-3 lists the REGRESSN program for de- 
termining the least squares regression of any one 
of the general forms listed in Table 4-1. The RE- 
GRESSN program does the following: 

1. Stores and retrieves data from tape 

2. Adds, deletes, or changes data 

3. Determines the minimum and maximum val- 
ues of data points 

4. Plots a scatter diagram of entered data 

5. Determines the number of data points en- 
tered 

6. Computes the coefficient of determination, 
correlation coefficient, and standard error of 
estimate 

7. Interpolates 

Example 4-1 

Determine what kind of a relationship exists 
between the following 10 X-Y data points, which 
are the parameters of voltage in millivolts, and 
temperature in degrees Fahrenheit for a given 
copper-constant thermocouple: (—2.581,-100), 
(-1.101,-20), (-0.674,0), (-0.404,13), (-0.150, 
25), (-0.043,30), (0,31), (1.086,80), (1.542,101), 
and (3.711,190). 

When the REGRESSN program is run, we are 
first asked if we want to input data that has been 
previously stored on tape. If the above data has 



Fig. 4-1. Scatter diagram. 
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(A) Linear. 



(B) Polynomial. 



0.0 



Y - MX * e 



0,0 



' •%* V ^ Y 




(C) Exponential. 



f - Ae 




{D) Geometric. 




(E) Inverse. 



O.D 



0,0 



Fig. 4-2. Generalized regression curveB. 



not been previously stored, the answer is NO, in 
which case we are to enter each point, as shown 
in Fig. 4-4. After all data points have been en- 
tered, we must enter the point 9999,9999 to termi- 
nate. All the entered points are then listed so we 
may examine them for any possible errors or 
omissions. Suppose point No. 7 was supposed to be 
(0,32) instead of (0,31). We then answer YES 
in response to whether or not we want to change 
a data point. We are then asked which point is 
to be changed, and then the coordinates for that 
point. 

After all corrections or additions have been 
made, the display then informs us of the mini- 
mum and maximum limits of our data and then 
gives a scatter diagram (Fig. 4-5), which can 
then be compared against one of the generalized 
curves shown in Fig. 4-2. For this example, the 
linear, or straight line regression appears to be 
the best choice. Fig. 4-6 shows the results for the 
linear regression line of our data, which includes 
the interpolation for x = -0.171. If no other in- 
terpolations are required, we can decide whether 
or not this data is to be saved on tape. 

Because of the method in which the remaining 
four types of regression curves are done, the fol- 
lowing restrictions are required : 



Inverse — any x cannot equal 0. 

Polynomial — order of polynomial cannot be 

greater than the number of data points 

less 2. 
Geometric — all x's and y's must be greater than 

0. 
Exponential — any y cannot equal 0. 

Although we see that it is possible to express 
our data in terms of a straight line, there may be 
another form that ia better suited. For example, 
it might be possible that our original data may 
be expressed in the form of an n-th order poly- 
nomial curve. Fig. 4-7 shows the results for the 
polynomial regression, using a third order ap- 
proximation. We see that the standard error is 
less, an indication that this might be the better 
form. When regression curves are compared, sta- 
tistical tables should be consulted to determine 
whether or not the correlation coefficient is signi- 
iicant for the number of data points used. 

For saving data on disk instead of tape, only 
a few changes are required to the basic program, 
as summarized below: 

1. Delete lines 281 and 287. 

2. Change lines 121, 141, 159, 208, 225, and 279 
to 291 as shown in Fig. 4-8. 
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100 'LINEAR AND CURVILINEAR REGRESSION (REGRESSN) 

101 CLEAR ;, 

102 DIM XdOO) ,Y(100) ,P(100,2) ,V1 (100) ,V2(10) ■' . 

103 DIM V(2) ,R(2) ,M(2) ,D{2) ,A(21) ,U(11,12) ,T(12) ; 

104 GOSUB291 :GOSUB 228 iGOSUB 246 

105 GOTO 261 

106 CLStPRINT ... 

107 CLS:PRINT"LINEAR REGRESSION" .' : - 

108 GOSUB 312 

109 FOR 1=1 TO N:X=X(I) :Y=Y(I) " i *■,,-■ • 

1 1 J= J+X : K=K+Y : L=L+X [ 2 :M=M+Y [ 2 : R2=R2+X*Y : NEXTI 

111 GOSUB268 

112 PRINT 

113 PRINT"Y = ";A;"+ ( ";B;"* X )" i ' x ;;.. , r 

114 GOSUB270 

115 INPUT"INTERPOLATION ";C$ 

116 IF C$="NO" THEN 121 

117 INPUT"X = ";X 

118 PRINT" THEN Y = ";A+B*X 

119 INPUT"ANOTHER INTERPOLATION ";C$ 

120 IF C$="NO" THEN 121 ELSE 117 

121 INPUT"SAVE INPUT DATA ON TAPE ";ZZ$ 

122 IF ZZ$="YES" THEN GOSUB 279 ELSE 267 

123 GOTO 267 

124 'GEOMETRIC REGRESSION ROUTINE 

125 GOSUB 312 

126 FOR 1=1 TO N:X=X(I) :Y=Y(I) :Y=LOG(Y) :X=LOG(X) 

1 2 7 J= J+X : K=K+Y : L=L+X [ 2 : M=M+Y [ 2 : R2=R2+X*Y 

128 NEXTI 

129 GOSUB 268 

130 CLS:PRINT"GEOMETRIC REGRESSION (FOR X,Y > 0)":PRINT 

131 PRINT" B":PRINT"Y = AX" 

132 PRINTrPRINT" A =";EXP(A) 

133 PRINT" B =";B 

134 GOSUB 270 

135 INPUT" INTERPOLATION ";C$ 

136 IF C$="NO" THEN 141 

137 INPUT"X = ";X 

138 PRINT" THEN Y = " ; EXP (A) * (X [B) 

139 INPUT"ANOTHER INTERPOLATION ";C$:IF C$="NO" THEN 141 

140 GOTO 137 

141 INPUT"SAVE INPUT DATA ON TAPE ";ZZ$ 

142 IF ZZ$="YES" THEN GOSUB279 ELSE 261 

143 'EXPONENTIAL REGRESSION ROUTINE 

144 GOSUB 312 i^.- ■ 

145 FOR 1=1 TO N:X=X(I) :Y=Y{I) :Y=LOG(Y) 

146 J= J+X : K=K+Y : L=L+X [ 2 :M=M+Y [ 2 : R2=R2+X*Y: NEXTI 

147 GOSUB 268 

148 CLS:PRINT"EXPONENTIAL REGRESSION (FOR Y<>0)":PRINT 

149 PRINT" BX" 

150 PRINT"Y = A (EXP) " 

151 PRINTiPRINT" A =" ; EXP (A) : PRINT" B =";B 

152 GOSUB 270 

153 INPUT "INTERPOLATION ";C$ 

154 IF C$="NO" THEN 159 

155 INPUT"X = ";X ,. ^ ^^. 

156 PRINT" THEN Y = " ; EXP (A) *EXP (B*X) * * 

157 INPUT"ANOTHER INTERPOLATION ";C$:IF C$="NO" THEN 159 

158 GOTO 155 

159 INPUT"SAVE INPUT DATA ON TAPE ";ZZ$ 

160 IF ZZ$="YES" THEN GOSUB 279 ELSE 161 Mf^i>^' " T 

161 GOTO 267 

Fig. 4-3. Listing for REGRESSN program. 
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162 CLS:PRINT"POLYNOMIAL REGRESSION" 

163 PRINT" N" 

164 PRINT"Y = a + a X + AX" ! -"-^ ' 

165 PRINT" 1 N" 

166 PRINT: INPUT"0RDER OF POLYNOMIAL ";D 

167 CLS:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT"CALCULATI0NS IN PROGRESS" 

168 A(1 )=N:J=0:K=0:Q=O:S=0:Z=0:I=O:CC=O 

169 FOR 1=1 TON 

170 X=X{I) :Y=Y{I) 

171 FORJ=2T02*D+1 :A(J)=A(J)+X[ (J-1) :NEXTJ '■ " 

172 F0RK=1T0D+1 :U (K,D+2 ) =T (K) +Y*X [ (K-1) :T (K) =T (K) +Y*X[ (K-1) :NEXTK 

173 T{D+2)=T(D+2)+Y[2:NEXTI 

174 F0RJ=1T0D+1 

175 F0RK=1T0D+1 :U (J,K)=A(J+K-1) :NEXTK "J I. * - -a . 

176 NEXTJ 

177 F0RJ=1T0D+1 ; 

178 F0RK=JT0D+1 

179 IF U(K,J)<>0 THEN 182 ELSE 180 

180 NEXTK 

181 PRINT: PRINT "NO UNIQUE SOLUTION CAN BE FOUND" : GOT02 1 

182 F0RI=1T0D+2:S=U(J,I) :U(J,I)=U(K,I) :U (K, I) =S :NEXTI 

183 Z=1/U(J,J) 

184 F0RI=1T0D+2:U(J,I)=Z*U(J,I) :NEXTI 

185 F0RK=1T0D+1 

186 IFK=J THEN 189 ELSE 187 

187 Z=-U(K,J) 

188 F0RI=1T0D+2:U(K,I)=U(K,I)+Z*U{J,I) :NEXTI 

189 NEXTK .■_....-■ . _ : 

190 NEXTJ 

191 CLS:PRINT"POLYNOMIAL COEFFICIENTS: ":PRINT"A( ) = ";U(1,D+2) 

192 F0RJ=1T0D:PRINT"A("; J; ") = " ;U ( J+1 ,D+2) :NEXTJ 

193 P=0:FORJ=2TOD+1 : P=P+U ( J,D+2) * (T ( J) -A ( J) *T { 1 )/N) : NEXTJ 

194 Q=T(D+2)-T(1) [2/N:Z=Q-P:I=N-D-1 : L=P/Q 

195 PRINT: INPUT"HIT ENTER TO CONTINyE ";ZZ 

196 PRINT" 2" 

197 PRINT"COEFFICIENT OF DETERMINATON R =";L 

198 PRINT"CORRELATION COEFFICIENT R =";SQR(L) 

199 PRINT"STANDARD ERROR OF ESTIMATE =";SQR{Z/I) 

200 INPUT" INTERPOLATION ";C$ 

201 IF C$="NO" THEN 208 

202 INPUT"X = ";X 

203 P=U(1 ,D+2) 

204 FOR J=1T0D:P=P+U(J+1 ,D+2)*X[J:NEXTJ 

205 PRINT" THEN Y = ";P 

206 INPUT"AN0THER INTERPOLATION ";C$ 

207 IFC$="YES" THEN 202 

208 INPUT"SAVE INPUT DATA ON TAPE ";ZZ$ 

209 IF ZZ$="YES" THEN GOSUB 279 ELSE 211 

210 FOR I=1T0 500:NEXT 

211 GOTO 267 

212 CLS: PRINT" INVERSE REGRESSION" 

213 GOSUB 312 

214 FOR 1=1 TO N:X=1/X(I) :Y=Y{I) 

2 1 5 J= J+X : K=K+Y : L=L+X [ 2 : M=M+Y E 2 : R2=R2+X*Y : NEXTI 

216 GOSUB 268 

217 PRINT:PRINT"Y = ";A;" + (";B;"/X)" 

218 GOSUB 270 

219 INPUT"INTERPOLATION ";C$ 

220 IF C$="NO" THEN 225 

221 INPUT"X = ";X 

222 PRINT" THEN Y = ";A+B/X 
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224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 
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INPUT"ANOTHER INTERPOLATION ";C$ 

IFC$="NO" THEN 225 ELSE 221 

INPUT"SAVE INPUT DATA ON TAPE ";ZZ$ 

IF ZZ$="YES" THEN GOSUB 279 ELSE 227 

GOTO 267 

Y1=Y(1 ) :Y2=Y(1 ) :X1=X(1 ) :X2=X{1) 

F0RI=2T0N 

IF(Y1-Y(I) )<=0 THEN 233 ELSE 231 

Y1=Y(I) 

GOT02 35 

IF(Y2-Y(I) )<0 THEN 234 ELSE 235 

Y2=Y(I) 

IF{X1-X(I) )<=0 THEN 238 ELSE 236 

X1=X(I) 

GOTO240 

IF(X2-X[I))<0 THEN 239 ELSE 240 

X2=X(I} 

NEXTI 

CLS: PRINT" YOUR INPUT DATA HAS THE FOLLOWING LIMITS:" 

PRINT: PRINT: PRINT: PRINT" VARIABLE", "MINIMUM", "MAXIMUM" 

PRINT"X",X1 , X2 : PRINT "Y",Y1 ,Y2 ,, 

XD=X2-X1 :YD=Y2-Y1 

RETURN 

PRINT: INPUT"HIT <ENTER> FOR GRAPH OF INPUT DATA " ; FF 

CLS : PRINTED, Y2 : PRINTS 12 8, Y1+( YD* 4/5) :PRINT@256 , Y1 + {YD*3/5 ) 

PRINT? 4 48, Y1+( YD* 2/5) : PRINT§57 6 , Y1 + (YD/5 ) : PRINT@70 4 , Y1 

FORY=0TO35:SET{13,Y) : NEXTY 

F0RX=15T0115:SET(X,37) : NEXTX 

F0RX=1 5T01 1 5STEP20:SET(X,3 8) :NEXTX 

FORY=0TO35STEP7:SET(12,Y) rNEXTY 

PRINT@838,X1 :PRINT@848,X1+(XD/5) : PRINT@8 58 ,X1 + (XD*2/5) 

PRINT@868,Xl+(XD*3/5) : PRINT§a78 ,X1 + (XD*4/5) : PRINT@88 8 ,X2 

PRINT@916, "INPUT DATA - Y VS. X" 

F0RI=1T0N 

X=n5-{ {X2-X(I) )*100/XD) :Y=3 5-{ (Y{I)-Y1 )*35/YD) 

SET(X,Y) :NEXTI 

INPUT"HIT <ENTER> TO CONTINUE " ; FF 

RETURN 

CLS:PRINT"REGRESSION TYPES AVAILABLE:" 

PRINT : PRINT" 1 . LINEAR REGRESSION" : PRINT" 2 . INVERSE REGRESSION" 

PRINT"3. NTH ORDER (POLYNOMIAL) REGRESSION" 

PRINT"4. GEOMETRIC REGRESSION" : PRINT" 5 . EXPONENTIAL REGRESSION" 

PRINT: INPUT"CHOICE " ; 2X 

ON ZX GOTO 107 ,212 ,162 ,124 ,143 

END 

B= (N*R2-K*J) / (N*L-J[2) 

A= ( K-B* J ) /N : RETURN 

J=B* (R2-J*K/N) ■ *9 ■'■ - 

M=M-K[2/N 

K=M-J:IF K<0 THEN K=0 

R2=J/M:PRINT:PRINT"NUMBER OF DATA POINTS =";N 

PRINT" 2" 

PRINT"COEFFICIENT OF DETERMINATION R =";R2 

PRINT"CORRELATION COEFFICIENT R =";SQR(R2) 

PRINT" STANDARD ERROR OF ESTIMATE = " ; SQR (K/ (N-2 ) ) 

RETURN ^ 

'STORE DATA POINTS ON TAPE " 

PRINT"LOAD TAPE AND PRESS RECORD AND PLAY BUTTONS" 

INPUT"PRESS <ENTER> WHEN READY " ; Z9 

PRINT#-1 ,N 

FOR 1=1 TO N:PRINT#-1 ,X(I) ,Y{I) :NEXT I 

RETURN 



I'^ 



for REGRESSN program. 
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285 'INPUT DATA POINTS FROM TAPE 

286 PRINT"LOAD TAPE AND PRESS PLAY BUTTON" " '' 

287 INPUT"PRESS <ENTER> WHEN READY " ; Z9 " ' - ''■ 

288 INPUT#-1 ,N ■ - . - , , . 

289 FOR 1=1 TO N:INPUT#-1 ,X(I) ,Y(I) :NEXT I 

290 RETURN *" ' • "' ■ " ■■ - ' 

291 CLS: INPUT" INPUT PREVIOUSLY STORED DATA FROM TAPE (YES/NO) ";ZZ$ 

292 IF ZZ$="YES" THEN GOSUB 285 ELSE 294 

293 GOSUB300 : IF ZZ$="YES" THEN RETURN 

294 CLS:PRINT"ENTER EACH DATA POINT (ENTER 9999,9999 TO TERMINATE): " 

295 N=1 

296 INPUT" X,Y ";X(N},Y(N) 

297 IF (X(N)=9999)AND(Y(N)=9999) THEN 299 ELSE 298 " ' 

298 N=N+1 :GOTO 296 ' ■ 

299 N=N-1 

300 CLS:PRINT"POINT","X"/'Y" - ' 

301 FOR W=1 TO N:PRINTVV,X (W) ,Y (W) :NEXTW 

302 PRINT: INPUT"CHANGE ANY DATA POINT (S) ";C$ 

303 IF C$="YES" THEN 304 ELSE 307 '' ' "' " ■ ' ' 

304 GOSUB 314 .■■■.«:"■■;: yy. 

305 C$="":INPUT"ANOTHER CHANGE ";C$ ^' ' •"' ■■'.■ " 

306 IF C$="YES" THEN 304 ELSE 307 .-»■=■;.:.■ 

307 INPUT"DELETE A DATA POINT ";D$ 

308 IF D$="YES" THEN 318 ELSE 309 ' " ' ' ' 1 ' ' ■; J 

309 INPUT"DO YOU WANT TO ADD OTHER DATA POINTS ";C$ '■" ' ^ ■ ' " '■'' 

310 IF C$="YES" THEN 311 ELSE RETURN - ' -■ •' ^t 

31 1 N=N+1 :GOTO 296 ' " ■ ' ' 

312 I=0:J=0:K=0:L=0:M=0:Q=0:S=0:Z=0 ■ - ' •- ■' 

313 CC=0:R2=0: RETURN '- *, ' 

314 CLS:PRINT"POINT","X","Y" , : ' ■ 

315 FOR VV=1 TO N:PRINTW,X (W) ,Y(W) :NEXT VV ' '.. __ 

316 PRINT: INPUT"CHANGE POINT # " ; CC '/ ' . ■ ' ' ^ 

317 INPUT"NEW X,Y "; X (CC) , Y (CC) : RETURN '• ' " . " ' 

318 CLS:PRINT"POINT", "X","Y" 

319 FOR W=1 TO N:PRINTVV,X(W) ,Y(W) :NEXT W ' ' ' 

320 PRINT: INPUT"DELETE POINT # " ; KK ' v 

321 FOR L=KK TO N: X (L) =X (L+1) : Y (L) =Y (L+1 ) :NEXTL ' " ■--■■-.-- ^ 

322 N=N-1 :GOTO 300 ' ^'^ 

Fig. 4-3 (cont). Listing for REGRESSN program. ' * ' *' _^ _ 
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Fig. 4-4. Input data for 
Example 4-1. 



■ »ii'(- 



,'r-i. 



"IP. •■ . 1 " 



INPUT 


PREVIOUSLY STORED DATA 


FROM 


TAPE 


ENTER 


EACH 


DATA POINT 


(ENTER 


9999 


9999 




X 


,Y 


? 


-2.581 ,-100 










X 


,Y 


? 


-1 . 101 ,-20 










X 


,Y 


7 


-.674,0 








. 


X 


,Y 


7 


-.404, 13 






".1 




X 


,Y 


? 


-.15,25 










X 


rY 


■p 


-.043,30 




- •> 






X 


rY 


? 


0,31 


_ 








X 


Y 


7 


1.086,80 










X 


Y 


? 


1 .542, 101 








.- 


X 


Y 


7 


3.711,190 










X 


Y 


7 


9999,9999 






rr 


POINT 






X 




Y 


1 








-2.581 


:i I 


-100 




t 








-1.101 


T 


-20 




-t^ 








-.674 * 


" 







4 








-.404 




13 




5 








-.15 




25 




€ 








-.043 





30 
31 


. 


1^' -\ 








1.086 




80 




9 








1 .542 




101 




10 








3.711 




190 




CHAN 


GE 


DATA POINT (£) ? 


YES 






POINT 






X 




Y 




1 


h UT t 


f 




-2.581 




-100 




2 








-1.101 f,- 




-20 




3 








-.674 









4 








-.404 




13 




5 - 








-.15 




25 




6 " 








-.043 




30 




7 











u:'^ ; ^J 


■'^31^ 


Sn-^*.' 


8 








1 .086 




80 




9 








1 .542 




101 




10 








3.711 ., 


. , 


190 





(YES/NO) ? NO 
TO TERMINATE) ; 



J-* 



■■V 



/< 



CHANGE POINT # ? 7 

NEW X,Y ? 0,32 

ANOTHER CHANGE ? NO 

DELETE A DATA POINT ? NO 

DO YOU WANT TO ADD OTHER DATA POINTS 



IHU'I 



I'M I :(>;•! 



? NO 




LINEAR REGRESSION ' ' , ^ '. 

Y = 28.7844 + ( 45.5669 * X ) . , 

NUMBER OF DATA POINTS =10 

2 
COEFFICIENT OF DETERMINATION R = .995586 
CORRELATION COEFFICIENT R = .997791 
STANDARD ERROR OF ESTIMATE = 5.43301 
INTERPOLATION ? YES , 

X = ? -.171 

THEN Y = 20.99 2 5 
ANOTHER INTERPOLATION ? NO 
SAVE INPUT DATA ON TAPE ? YES 



READY 
> 



■I ( 



UlT^. 



'^i 



Fig. 4-5. Video scatter diagram of Example 4-1. 



Fig. 4-6. Linear regression output results. 
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POLYNOMIAL REGRESSION 

N 
Y=A +AX+....AX 

1 m 

ORDER OF POLYNOMIAL ? 3 

POLYNOMIAL COEFFICIENTS: 
A( ) = 32.0932 
A( 1 ) = 46.1803 
A{ 2 ) = -1 .52834 
A( 3 ) = .149678 

HIT ENTER TO CONTINUE ? 



^ - 



t.i 



COEFFICIENT OF DETERMINATON R = .999966 
CORRELATION COEFFICIENT R = .999983 
STANDARD ERROR OF ESTIMATE = .553163 
INTERPOLATION ? YES 
X = ? -.171 

THEN Y = 24. 151 " t 

ANOTHER INTERPOLATION ? NO 
SAVE INPUT DATA ON TAPE ? NO :> , 

READY . ' ' 

>_ 

Fig. 4-7. Third order polynomial regression output results. 

Consequently, a data file with the file name DATA 

will be created on the same disk. 

1,1 t- 

Example 4-2 ■ 

Table 4-2 summarizes the data points from an 
experiment that measured the thermal resistance 
of a heat sink as a function of its volume. From 
past experience we might know that this should 
look like a straight line when plotted using log-log 
coordinates, thus suggesting a geometric regres- 
sion line. 

Fig. 4-9 shows the output for the data of Table 
4-2 using a geometric regression. 



GEOMETRIC REGRESSION (FOR X,Y > 0) 

B 
Y = AX 

A = 46.155 
B =-1.52145 



NUMBER OF DATA POINTS = 9 



2 



COEFFICIENT OF DETERMINATION R ^ .999152 
CORRELATION COEFFICIENT R = .999576 
STANDARD ERROR OF ESTIMATE = .0793054 
INTERPOLATION ? YES 
X = ? 4.0 

THEN Y = 5.60032 
ANOTHER INTERPOLATION ? NO 

SAVE INPUT DATA ON TAPE ? NO 



READY 
> 



Fig. 4-9. Geometric regression results. 



Relationship Between More 
Than Two Variables 

The REGRESSN program dealt only with the 
possible relationships that may exist between a 

Table 4-2. Data for Example 4-2 



Thermal Reiistinca 


Voluma 


(degreM/watI) 


(in') 


12.0 


1.0 


100 


1.3 


BjO 


2.0 


4D 


6.0 


1.3 


30.0 


0.B 


70.0 


0.4 


200 


0.3 


300 


0.13 


900 



121 INPUT"SAVE INPUT DATA ON DISK 

141 INPIIT"SAVE INPUT DATA ON DISK 

159 INPUT"SAVE INPUT DATA ON DISK 

208 INPUT"SAVE INPUT DATA ON DISK 

225 INPUT"SAVE INPUT DATA ON DISK 



zz; 

ZZ: 

zz; 
zz: 
zz: 



279 'STORE DATA POINTS ON DISK 

280 0PEN"0",1 ,"DATA" 

282 PRINT#1,N 

283 FOR 1=1 TO N: PRINT# 1 ,X (I ) , Y ( I) :NEXT I 

284 CLOSE:RETURN 

285 'INPUT DATA POINTS FROM DISK " 

286 0PEN"I",1 ,"DATA" ' ' * 

288 INPUT#1 ,N *'■ " ■ ■ . 

289 FOR 1=1 TO N:INPUT#1 ,X(I) ,Y(I) :NEXT I 

290 CLOSE: RETURN 

291 CLS: INPUT" INPUT PREVIOUSLY STORED DATA FROM DISK (YES/NO) ";ZZ: 



Fig. 4-8. Required changes to REGRESSN program for disk operation. 
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100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
1 12 
113 
114 
1 15 
1 16 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 



"J .' ' 



■--f 



-a ' 



.! *,■ 









1' 



'MULTIPLE LINEAR REGRESSION PROGRAM (MLREGRES) 

CLSiPRINT, "MULTIPLE LINEAR REGRESSION" 

DIM X(30) ,S{30) ,T(30) ,A(30,31) 

PRINT: INPUT"NUMBER OF DATA POINTS "?N 

INPUT"NUMBER OF INDEPENDENT VARIABLES ";V 

CLS 

PRINT"ENTER DEPENDENT AND INDEPENDENT VARIABLES FOR EACH DATA POINT" 

PRINT:X (1 ) = 1 

FOR 1=1 TO N:PRINT:PRINT"POINT"; I ,, ., , 

INPUT" DEPENDENT VARIABLE Y ";X(V+2) 

FOR J=1 TO V . , . ' 

PRINT" INDEPENDENT VARIABLE A(";J,-") "; • , ., "- ' 

INPUT X(J+1) 

NEXT J 

FOR K=1 TO V+1 

FOR L=1 TO V+2 

A(K,L)=A(K,L)+X(K)*X(L) 

S(K)=A(K,V+2) 

NEXT L 

NEXT K 

S(V+2)=S(V+2)+X (V+2) +2 • ■ 

NEXTI „\ 

FOR 1 = 2 TO V+1 , . ^- 

T(I)=A(1,I) _ 

NEXT I 

FOR 1=1 TO V+1 u -r 

FOR J=I TO V+1 .-■ - '. ■- ■ 

IF A(J,I)<>0 THEN 131 
NEXT J wi . ^ r -t-£ 

PRINT"NO UNIQUE SOLUTION" ,. i '- ' " - . ■ >,-n 
GOTO 176 ■-'■■■ ^ 

FOR K=1 TO V+2 ■ \ ' 

B=A(I,K) 
A(I,K}=A(J,K) 

A(J,K)=B , , ,, , .,-.., 

NEXTK .. .!< -J, 

Z=1/A(I,I) 
FOR K=1 TO V+2 
A{I,K)=Z*A(I,K) 
NEXT K 

FOR J=1 TO V+1 .-.J ■: ^ . - ■ 
IF J=I THEN 146 

Z=-A{J,I) i '.-rK' 

FOR K=1 TO V+2 

A(J,K)=A(J,K)+Z*A(I,K) ' ■'■ 
NEXT K ^ ' 

NEXT J 

NEXT I i^ ' 

CLS:PRINT"RESULTS OF MULTIPLE LINEAR REGRESSION" : PRINT 
PRINT"A( ) = ";A(1,V+2) 
FOR 1=2 TO V+1 

PRINT"A{";I-1 ;") = ";A(I,V+2) "^ '' ""' '"■ 
NEXT I ' -i' 

P=0 

FOR 1=2 TO V+1 

P=P+A(I,V+2)* (S(I)-T{I) *S(1)/N) 
NEXT I 

R=S(V+2)-S(1)+2/N 
Z=R-P 
L=N-V- 1 
I=P/V 
I=P/R 



-,- ■■ ^ 



:\~ 



I. .' 



:->■■..■. ■■' 






.y\ i(. 






IX' 






*''j 



.,►, 



\' 



''1 1 



(•■ r- , 



.1 _■ 



Fig. 4-10. Listing for MLREGRES program. 



Continued on next page. 
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162 PRINT:PRINT" ^"^^ ' 

163 PRINT"COEFFICIENT OF DETERMINATION R = ";I 

164 PRINT"C0RRELATI0N COEFFICIENT R =";SQR(I) 

165 PRINT"STANDARD error of estimate = ";SQR(ABS (Z/L) ) 

166 PRINT: INPUT"INTERPOLATION ";C$ 

167 IF C$="YES" THEN 168 ELSE 176 

168 P=A{1 ,V+2) : • 

169 FOR J=l TO V 

170 PRINT" INDEPENDENT VARIABLE A{";J;") "; 

171 INPUTX '^ ■ " ■ 

172 P=P+A{J+1 ,V+2)*X:NEXT J 

173 PRINT" THEN Y = " ; P ' ■ ' * 

174 INPUT"ANOTHER INTERPOLATION ";C$ 

175 IF C$="YES" THEN 168 

176 PRINT: END 

Fig. 4-10 (cont). Listing for MLREGRES program. 



dependent variable and a single independent vari- 
able. However, there are situations where the 
measured quantity is dependent upon two or more 
quantities, which may be interrelated or may not 
be interrelated. 

The multiple linear regression program (ML- 
REGRES) listed in Fig. 4-10 determines the co- 
efficients for the form : 

y = Eo + aiXi + a2X2 . . . + EnXn 

In addition, the program determines the coeffi- 
cients of determination and correlation, as well as 
the standard error of estimate. 

Example 4-3 

For the following data, determine the multiple 
regression coefficients, if a solution can be found 
from the given data. 

dependent variable y 
independent variable Xi 
independent variable Xa 

As shown in the output results of Fig. 4-11, the 
dependent variable is entered first for each point, 
followed by the two independent variables, Xi and 
Xa. The regression coefficients then yield the result- 
ing equation: 

y = -5.03233 + 1.21878x, - 0.0313288x2 

In addition, the interpolation is shown for the 
values Xi = 52 and X2 = 10. 



64 71 53 67 


65 


68 


67 69 49 62 


61 


50 


8 10 6 11 


8 


7 



SAMPLE STATISTICS 

The DSTATS program listed in Fig. 4-12 deter- 
mines the arithmetic mean, variance, standard 
deviation, skewness, kurtosis, z-scores, maximum 
and minimum values, and the range for a sample 
of ungrouped data. The variance and standard 
deviation are measures of dispersion of the data 
about the mean value. The coefficients of skewness 
and kurtosis are measures of asymmetry and 
peakness, respectively, of a distribution of data. 
The z-scores are measures of the deviation from 
the mean in terms of a standard deviation, so 
that other distributions of data may be compared. 

When run the DSTATS program displays the 
value, its difference from the mean, and Z-score 
in groups of 10. Hitting the ENTER key con- 
tinues the rest of the list. After the entire list of 
values are displayed, the remaining statistics of 
the sample are given. 

Example 4-4 ' " 

Determine the sample statistics for the follow- 
ing 15 measured values for 100-ohm resistors: 99, 
103, 99, 98, 100, 101, 105, 97, 99, 100, 102, 101, 
103, 98, and 101. 

As shown in Fig. 4-13, the mean value for these 
15 resistors over the range of 97 to 105 is 100.4 
ohms, while the variance and standard deviation 
are 4.83036 and 2.19781 ohms, respectively. 
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MULTIPLE LINEAR REGRESSION 

NUMBER OF DATA POINTS ? 6 

NUMBER OF INDEPENDENT VARIABLES ? 2 

ENTER DEPENDENT AND INDEPENDENT VARIABLES FOR EACH DATA POINT 



POINT 1 



DEPENDENT VARIABLE Y ? 64 
INDEPENDENT VARIABLE A ( 1 ) 
INDEPENDENT VARIABLE A{ 2 ) 



57 



POINT 2 



DEPENDENT VARIABLE Y ? 71 
INDEPENDENT VARIABLE A( 1 ) ? 59 
INDEPENDENT VARIABLE A( 2 ) ? 10 



:7Sf-. 



POINT 3 



POINT 4 



DEPENDENT VARIABLE Y ? 53 
INDEPENDENT VARIABLE A ( 1 ) ? 
INDEPENDENT VARIABLE A{ 2 ) ? 



DEPENDENT VARIABLE Y ? 67 
INDEPENDENT VARIABLE A( 1 
INDEPENDENT VARIABLE A ( 2 



49 
6 



62 
11 



I V 



POINT 5 



DEPENDENT VARIABLE Y ? 55 
INDEPENDENT VARIABLE A( 1 ) ? 
INDEPENDENT VARIABLE A ( 2 ) ? 



51 



POINT 6 



DEPENDENT VARIABLE Y ? 58 
INDEPENDENT VARIABLE A( 1 ) ? 50 
INDEPENDENT VARIABLE A{ 2 ) ? 7 



RESULTS OF MULTIPLE LINEAR REGRESSION 

A( ) = -5.03233 
A( 1 ) = 1.21878 
A( 2 ) = -.0313288 



COEFFICIENT OF DETERMINATION R = .838221 
CORREIATION COEFFICIENT R = .915548 
STANDARD ERROR OF ESTIMATE = 3.69589 



INTERPOLATION ? YES 
INDEPENDENT VARIABLE A( 1 ] 
INDEPENDENT VARIABLE A( 2 ; 

THEN Y = 58.031 
ANOTHER INTERPOLATION ? NO 



52 
10 



READY 
> 



Fig. 4-11. Multiple linear regression results. 
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100 'DESCRIPTIVE STATISTICS (DSTATS) 

101 CLEAR:DIM N(100):CLS 

102 INPUT"NUMBER of OBSERVATIONS" ;N 

103 M=0:B=0:C=0:T=0:U=0 ^ , .-,, 

104 FOR I=1T0N:PRINT"#";I; 

105 INPUTX:N(I)=X 

106 C=C+X:B=B+X+2:NEXTI " , , t' \ 

107 M=C/N:V=(B-N*M+2)/(N-1) :T=V* (N-1}/N:U=SQR(T) ^ 

108 D=SQRCV) ■ ' ■ 

109 INPUT"HIT <ENTER> FOR LISTING OF VALUES AND Z-SCORES ";Z9 

110 P=0:Q=0:R=0:I=1 :S=1 . ,. 

111 CLS:PRINT" #", "VALUE", "DIFFERENCE", "Z-SCORE" 
1 12 P=N(I)-M:Z=P/D ', . - 

113 Q=Q+(P+3) :R=R+(P^4) , .-- ' 

114 PRINT I,N(I) ,P,Z 

115 IF I=N THEN 119 ELSE 116 

116 IF I>(10*S)-1 THEN 118 ELSE 117 

117 1=1+1 :GOTO 1 12 

118 S=S+1 :PRINT:INPUT"HIT <ENTER> TO CONTINUE LIST "; Z9 : 1=1+1 t GOTO 111 

119 PRINT: PRINT"END OF LIST": PRINT fpq 

120 INPUT"HIT <ENTER> FOR SAMPLE STATISTICS " ; Z9 

121 N1=N(1) :N2=N(1) 

122 FOR 1=2 TO N ,, , . , 

123 IF(N1-N(I) )<=0 THEN 125 ELSE 124 , 

124 N1=N(I):G0T0 127 ' -• --Li 

125 IF(N2-N(I))<0 THEN 126 ELSE 127 

lie N2=N(i) 

127 NEXT I 

128 CLS:PRINT"MINIMUM VALUE = " ; Nl : PRINT"MAXIMUM VALUE = " ; N2 : 
PRINT"RANGE =" ; ABS {N2-N1 ) 

129 PRINT"MEAN =" ;M: PRINT"VARIANCE =" ;V : PRINT" STD , DEVIATION = " ; D ■,,_,, 

130 PRINT"SKEWNESS = " ; Q/ (N* (U [ 3 ) ) "" ' ' 

131 PRINT"KURTOSIS = " ; R/ {N* (U [ 4 ) ) ^ , ■ 

132 PRINT:END ■-_.■. 

Fig. 4-12. Listing for DSTATS program. ■ i 

• ; >- -r- 

■-5' 



^ •f-r 



K li 



1 i.-i 



,,'v 
• ■J, 



Basic Statistics and the Analysis of Data 



61 



Fig. 4-13. Results of 

sample statistics for 

15 resistor values. 



NUMBER OF OBSERVATIONS? 15 



# 1 


? 99 




# 2 


? 103 




# 3 


? 99 




# 4 


? 98 




# 5 


? 100 




1 6 


? 101 




# 7 


? 105 




# 8 


? 97 




# 9 


? 99 




# 10 


? 100 


^ 


# 11 


? 102 


1 


# 12 


? 101 




# 13 


? 103 




# 14 


? 98 




# 15 


? 101 




HIT 


<enter> 


FOR LISTING 


# 




VALUE 


1 




99 


2 




103 


3 




99 


4 




98 


5 




100 


6 




101 


7 




105 


8 




97 


9 




99 


10 




100 


HIT 


<enter> 


TO CONTINUE 


# 




VALUE 


11 




102 


12 




101 


13 




103 


14 




98 


15 




101 


END 


OF LIST 





DIFFERENCE 


z-score 


-1.4 


-.636999 


2.6 


1 .183 


-1 .4 


-.636999 


-2.4 


-1 .092 


-.400002 


-. 182 


.599999 


.272999 


4.6 


2.02299 


-3.4 


-1 .547 


-1 .4 


-.636999 


-.400002 


-.182 



LIST ? 



DIFFERENCE 


Z-SCORE 


1.6 


.727998 


.599999 


.272999 


2.6 


1 .183 


-2.4 


-1.092 


.599999 


.272999 



HIT <ENTER> FOR SAMPLE STATISTICS ? 

MINIMUM VALUE = 97 
MAXIMUM VALUE = 105 
RANGE = 8 
MEAN = 100.4 
VARIANCE = 4.83036 
STD. DEVIATION = 2.19781 
SKEWNESS = .431235 
KURTOSIS = 2.4851 



READY 
> 



^ ■ • T^' 
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Networks and Transforms 



This chapter presents programs for the design 
of a variety of attenuators and lossless pads, 
which are primarily used for impedance matching. 
In addition, programs are included which permit 
the analysis of two-port networks, the inverse 
Laplace transform^ real and imaginary roots of 
polynomials, Pi-Tee (Delta-Wye) transformations, 
and the solution of mesh and node equations. 

ROOTS OF POLYNOMIALS 

Very often the analysis of a network requires 
that the resultant polynomial be factored into dis- 
tinct roots, which may be either real or complex. 
Such may be the case of solving a high order dif- 
ferential equation by Laplace transforms, or de- 
termining the pole locations of Butterworth and 
Chebyshev polynomials. 

The PLYROOTS program shown in Fig. 5-1 
determines the real or complex roots, if any exist, 
for any polynomial of the form : 

P (x) = ao + aix + agx^ . . . + a^x" 

(Eq. 5-1) 

Naturally, the number of roots will be equal to 
the degree of the polynomial. It should be noted 
that third- and higher-order polynomials fre- 
quently have roots that are conjugate pairs in 
which the real parts are equal but the imaginary 
parts are of opposite sign. The coefficients of the 
polynomial are entered one at a time, starting 
with the constant term on up to the nth-order 
term. 

Example 5-1 

Determine the roots, if any exist, for the second- 
order polynomial 

p(x) =x^ + x-e 

As shown in Fig. 5-2 the coefficients of the poly- 
nomial are entered one at a time, starting with 



the constant term on up to the second-order term. 
For this example, the roots were found to be 
equal to 2 and -3, both of which are real. This 
solution agrees with the solution obtained using 
the quadratic formula method for second-order 
equations. 

Example 5-2 ' 

Determine the pole locations for the following 
fourth-order Butterworth polynomial : 

P(s) == 1 + 2.613s 4- 3.414s2 + 2.613ss + s^ 

Shown in Fig. 5-3 are the output results. We see 
that all four roots are complex, and exist as two 
complex conjugate pairs. From these roots, we 
know that the pole locations lie 22.5 degrees apart 
on the perimeter of a semicircle of unit length in 
the left half of the complex plane, as shown in 
Fig. 5-4. . ■ ..- • , , - 

THE INVERSE LAPLACE TRANSFORM 

The inverse Laplace transform ■ 

f(t)=j^jF(s)e«*ds (Eq.5-2) 

ffj—l'XI 

is frequently used for the solution of linear dif- 
ferential equations by transforming the problem 
from the frequency domain to the time varying 
response. 

The inverse Laplace transform program (ILA- 
PLACE) shown in Fig. 5-5 assumes that the fre- 
quency domain, or transfer function of the com- 
plex variable s (s = jw), is expressed by the fol- 
lowing generalized form : 



F(s) = 



ao + BiS + a2S* + . . . 



(Eq. 5-3) 



(s + b,)(s + b2) . 

The polynomial coefficients ai of the numerator 
are assumed to be real, while the denominator has 
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•REAL AND COMPLEX ROOTS OF A REAL POLYNOMIAL (PLYROOTS) 

DIM A{40) ,C(40) ,RR(20) ,RI(20) 

CLS! PRINT, "REAL & COMPLEX ROOTS OF A REAL POLYNOMIAL" 

PRINT: INPUT"ORDER OF POLYNOMIAL ";0 

PRINT:PRINT"ENTER COEFFICIENTS, STARTING WITH THE CONSTANT TERM": PRINT 

FOR 1=1 TO 0+1 

PRINT"COEFFICIENT A(";I-1 ;") "; 

INPUT A (I) 

NEXT I 

IT=0:N=O 

IF A(N+1)<>0 THEN 111 ELSE 112 

IF N>0 THEN 112 ELSE 195 

NX=0 

NY=N+1 

N2=1 

KJ=N+1 n .. rr 

FOR L=1 TO KJ 

MT=KJ-L+1 

C(MT)=A{L) -■,.., , ,^, ... 

NEXT L .. ■ " 

'SET INITIAL VALUES 

X0=. 00500101 :Y0=. 01000101 

IN=0 .;.. I, 

X=XO ' '* . . , . , 

X0=-10*Y0:Y0=-10*X 

•SET X AND Y TO CURRENT VALUE 

X=XO:Y=YO 

IN=IN+1 :GOTO 132 

IT=1 

XP=X 

YP=Y 

'EVALUATE POLYNOMIAL & DERIVATIVES 

IC=0 , 

UX=0:UY=0:V=0:YT=0:XT=1 .00 

U=C(N+1) 

IF U <>0 THEN 136 ELSE 176 '■■ 

FOR 1=1 TO N .i'~<J V ^ 

L=N-I+1 

T=C(L) 

X2=X*XT-Y*YT:Y2=X*YT+Y*XT 

U=U+T*X2 

V=V+T*Y2 

F1=I 

UX=UX+F1*XT*T 

UY=UY-F1*YT*T 

XT=X2 : YT=Y2 :NEXTI 

SQ=(UX + 2) + (UY+2) ^' 

IF SQO THEN 148 ELSE 168 ,=• 

DX=(V*UY-U*UX)/SQ ,t _^ - e. 

X=X+DX 

DY=-{U*UY+V*UX)/SQ 

Y=Y+DY 

IF ABS(DY)+ABS(DX)-1E-5 <0 THEN 159 ELSE 154 

'STEP INTERATION COUNTER 

IC=IC+1 
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Fig. 5-1. Listing for 
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K: 



155 CLS: PRINT" INTERATION COUNT =";IC 

156 IF IC-500<0 THEN 133 ELSE 157 

157 IF ITOO THEN 159 ELSE 158 . ' '. „ 

158 IF IN-5 <0 THEN 123 ELSE 195 - - - 

159 FOR L=1T0 NY _ . A- 

160 MT=KJ-L+1 ' 

161 T=A(MT) 

162 A(MT)=C(L) 

163 C (L)=T:NEXTL 

164 IP=N 

165 N=NX "' • 

166 NX-IP 

167 IF ITOO THEN 170 ELSE 128 

168 IF IT <>0 THEN 169 ELSE 123 

169 X=XP:Y=YP 

170 IT=0 

171 IF ABS(Y)- (1E-4*ABS(X) ) <0 THEN 179 ELSE 172 

172 AL=X+X -A ^ 

173 SQ=(X+2)+Y+2 

174 N=N-2 •: 

175 GOTO 183 

176 X=0 . . ■ ' . I 

177 NX-NX- 1 . 

178 NY=NY-1 

179 Y=0 

180 SQ=0 

181 AL=X 

182 N=N-1 

183 C(2)=C{2)+AL*C(1) 

184 FOR L=2 TO N 

185 C{L+1)=C(L+1)+AL*C{L)-SQ*C(L-1) 

186 NEXT L 

187 RI (N2)=Y:RR(N2)=X 

188 N2=N2+1 

189 IF SQOO THEN 190 ELSE 193 

190 Y=-Y 

191 SQ=0 

192 GOTO 187 

193 IF N>0 THEN 121 ELSE 194 

194 GOTO 197 

195 CLS:PRINT"UNABLE TO COMPUTE AFTER 500 INTERATIONS" 

196 END 

197 'OUTPUT RESULTS 

198 CLS:PRINT"FOR THE POLYNOMIAL EQUATION:*' 

199 PRINT:PRINT"0 = ";A(1);" + ";A(2);"X "; 

200 FOR K=3 TO 0+1 ; 

201 PRINT" + ";A(K) ;"X4";K-1 ; 

202 NEXTK 

203 PRINT:PRINT:PRINT"THE ROOTS ARE:" 

204 PRINT:PRINT"ROOT #","REAL PART" , "IMAGINARY PART" 

205 FOR 1=1 TO O 

206 PRINT I,RR(I) ,RI (I) :NEXTI 

207 PRINT:PRINT 

208 END 
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PLYROOTS program. 
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REAL & COMPLEX ROOTS OF A REAL POLYNOMIAL 

ORDER OF POLYNOMIAL ? 2 - ^ 

ENTER COEFFICIENTS, STARTING WITH THE CONSTANT TERM 

COEFFICIENT A( ) ? -6 
COEFFICIENT A( 1 ) ? 1 
COEFFICIENT A( 2 ) ? 1 

FOR THE POLYNOMIAL EQUATION: 

= -6 + IX + 1X+2 



I ! 



Fig. 5'2. Results of determin- 
ing the roots for the second- 
order polynomial. 



THE ROOTS ARE: 

ROOT # 
1 

2 

READY 
> 



REAL PART 

2 
-3 



IMAGINARY PART 





'-•j I 









REAL S COMPLEX ROOTS OF A REAL POLYNOMIAL 

ORDER OF POLYNOMIAL ? 4 

ENTER COEFFICIENTS, STARTING WITH THE CONSTANT TERM ^' ' ' 

COEFFICIENT A( ) ? 1 

COEFFICIENT A( 1 ) ? 2.613 

COEFFICIENT A{2)?3.414 .:-ri 

COEFFICIENT A( 3 ) ? 2.613 

COEFFICIENT A( 4 ) ? 1 

FOR THE POLYNOMIAL EQUATION: 

0=1+ 2.613 X + 3.414 X+ 2 + 2.613 X+ 3 + 1 X+ 4 

THE ROOTS ARE: " ' ' ' ' ' 



- r. .^ 



Fig. 5-3. Results of determin- 
ing pole locations for the 
fourth-order Butterworth 
polynomial. 



ROOT # 
1 
2 
3 

4 



READY 
> 



REAL PART 

-.382629 

-.382629 

-.92387 

-.92387 



IMAGINARY PART 
-.923902 

.923902 
-.382705 

.382705 



: r' ■ **■"■ 

■» 
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been factored. Consequently, the poles {i.e., the 
roots) of the denominator of the transfer function 
are known, and can be either real or complex. 
If this is not the case, the PLYROOT program 
discussed earlier in this chapter solves for both 
real and complex roots of a polynomial. 



When executed, the program requires the num- 
ber of numerator coefficients and their values, 
and the number of roots. Each denominator root 
is assumed to be a complex number and is entered 
in the format A,B where A and B are the real 
and imaginary parts, respectively. In addition, all 
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roots must be distinct, so that multiple roots are 
not allowed. The computed inverse Laplace trans- 
form time response is expressed in the form : 

f(t) =(ai+jbi)eC^i + JVt+ (aa-l-jb2}e*^-.+HJ» + ... 

(Eq. 5-4) 

so that there will be as many terms as there are 
roots. 

Example 5-3 

Determine the inverse Lfaplace transform time 
response for the transfer function 



T{s)- 



s-1 



(8 + 2) (s + 1) 



Fig. 5-4. Pole locations for fourth-order 
Butter worth polynomial. 



There are two coefficients for the numerator and 
two real denominator roots. Fig. 5-6 shows the 



• INVERSE LAPLACE TRANSFORM (ILAPLACE) 
CLSrPRINT, "INVERSE LAPLACE TRANSFORM PROGRAM" 

DIM AC20) ,CI (20) ,CR(20) ,RI(20) ,RR(20) ,SR(20) ,SI (20) ,DR(20) ,DI(20) 
PRINT :INPtIT"NUMBER OF NUMERATOR COEFFICIENTS ";M 
FOR 1=1 TO M 
PRINT"COEFFICIENT" ? I ; 
INPUT A(I) :NEXTI 

INPUT"NUMBER OF DENOMINATOR ROOTS ";N 
FOR 1=1 TO N 

PRINT"ROOT":I;" {REAL, IMAGINARY) : "; 
INPUTRR(I) ,RI (I) 
NEXT I 

FOR 1=1 TO N 
S1=RR(I) 
S2=RI(I) 
PR=1 
PI=0 
TR=A ( 1 ) 
TI=0 

IF(M-1)<0 THEN 160 ELSE 120 
IF (M-1)>0 THEN 121 ELSE 129 
FOR J=2 TO M 
B1=PR*S1-PI*S2 
C1=PI*S1+PR*S2 
PR=B1 
PI=C1 

TR=TR-I-A(J) *PR 
TI=TI-1-A(J) *PI 
NEXT J 
SR(I)=TR 
SI(I)=TI 
NEXT I 



FOR J=1 

PR=1 

PI=0 

FOR 1=1 



TO N 



TO N 



IF J-IOO THEN 137 ELSE 143 



Continued on next page. 



Fig. 5-5. Listing for ILAPLACE program. 



Networks and Transforms 



UR=RR(J)-RR{I) 

UI=RI{J)-RI (I) 

B1=PR*UR-PI*UI 

C1=PR*UI+PI*UR 

PR=B1 

PI=C1 

NEXT I 

DR(J)=PR 

DI(J)=PI 

NEXT J 

FOR 1=1 TO N 

148 CR{I)={SR(I)*DR(I)+SI(I)*DI{I))/({DR(I) [2) + (DI (I) [ 2) ) 

149 CI{I)=(SI(I)*DR{I)-SR{I)*DI{I))/(DR(I)*DR(I)+DI(I)*DI(I)) 

150 NEXT I -■ . , ^1 - _, . 
1=1 

PRINT: PRINT"THE INVERSE LAPLACE TRANSFORM, AS A FUNCTION OF TIME IS:":PRINT 
PRINT"F(T) = <";CR{I);" + J ( " ;CI (I) ; " ) > * EXP<";RR(I); 



137 
138 
139 
140 
141 
142 
143 
144 
145 
146 

147 



151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
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PRINT" + J(";RI{I) ;")>*T" 

IF N>1 THEN 156 ELSE 160 

FOR 1=2 TO N 

PRINT" +<";CR(I) ;" + 

PRINT" + J{";RI{I) ;")>*T" 

NEXT I 

PRINT: END 



J(";CI(I);")> * EXP<";RR(I); 



Fig. 5-5 (cont). Listing for ILAPLACE program. 
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output results for this transfer function, which 
has the time variant solution : 

f(t) =3e-2t-2e-* 

which agrees with the result obtained by the use 
of inverse Laplace transform tables. 

Example 5-4 

Determine the inverse Laplace transform time 
response for the transfer function 

Tf3) - 1 ' - 1 

^^^' s2 + 4s + 5 (s + 2 + j ) (s + 2 -J ) 

For this transfer function, there are 2 complex 
roots, which are complex conjugates. The output 
results are shown in Fig. 5-7, but can be simpli- 
fied further. 

The computed solution can then be rewritten as : 

j0.5e-°*e-'2 + 3)^ - j0.5e-<2-3H = 

e-^KO.Sje-* - O.SjeO = e-2tsin(t) 

using the exponential identities of trigonometric 
functions. 

Example 5-5 

Determine the inverse Laplace transform time 



response for the transfer function : 
1 1 



T(s) = 



s(s2~l) s(s + l)(s-l) 

Fig. 5-8 shows the output results, which can be 
simplified further. Using the identity 

e* + 8"* 



= cosh (t) 



(Eq. 5-6) 



so that the computed answer can now be more 
formally stated as : 

f(t) =cosh(t) ~1 

which can be verified using tables of inverse La- 
place transforms. 

IMPEDANCE MATCHING PADS 

Impedance matching devices are frequently 
used to "match" the signal source to a given load 
impedance. These devices may be either trans- 
formers, transistor circuits, or a class of networks 
called pads. Pads may be composed solely of 
resistors, or they may be a combination of induc- 
tors and capacitors. In this section, programs for 
the design of several common types of resistive 
and lossless matching pads are discussed. 



Networks and Transforms 



■R'I 



Fig. 5-6. Results for inverse 

Laplace transfer function 

(Example 5-3). 



INVERSE LAPLACE TRANSFORM PROGRAM 

NUMBER OF NUMERATOR COEFFICIENTS ? 2 

COEFFICIENT 1 ? -1 

COEFFICIENT 2 ? 1 

NUMBER OF DENOMINATOR ROOTS ? 2 

ROOT 1 (REAL, IMAGINARY): ? -2,0 

ROOT 2 {REAL, IMAGINARY): ? -1,0 



THE INVERSE LAPLACE TRANSFORM, AS A FUNCTION OF TIME IS 



F(T) = < 3 
+<-2 


+ J( )> 
+ J( )> 


* EXP<-2 

* EXP<-1 


+ Jf )>*T 
+ J( )>*T 


READY 
> 









Fig. 5-7. Results for inverse 

Laplace transfer function 

(Example 5-4). 



INVERSE LAPLACE TRANSFORM PROGRAM 

NUMBER OF NUMERATOR COEFFICIENTS ? 
COEFFICIENT 1 ? 1 

NUMBER OF DENOMINATOR ROOTS ? 2 
ROOT 1 (REAL, IMAGINARY): ? -2,-1 
ROOT 2 (REAL, IMAGINARY): ? -2 , 1 



THE INVERSE LAPLACE TRANSFORM, AS A FUNCTION OF TIME IS 



F{T) = < 
+< 


+ J( .5 )> 
+ J(-.5 )> 


* EXP<-2 

* EXP<-2 


+ J(-1 )>* 
+ J( 1 )>* 


READY 
> 









INVERSE LAPLACE TRANSFORM PROGRAM 



NUMBER OF NUMERATOR COEFFICIENTS 
COEFFICIENT 1 ? 1 

NUMBER OF DENOMINATOR ROOTS ? 3 
ROOT 1 (REAL, IMAGINARY): ? 0,0 
ROOT 2 (REAL, IMAGINARY): ? -1,0 
ROOT 3 (REAL, IMAGINARY): ? 1,0 



? 1 



Fig. 5-8. Results for inverse 

Laplace transfer function 

(Example 5-5). 



THE INVERSE LAPLACE TRANSFORM, AS A FUNCTION OF TIME IS: 

F(T) = <-1 + J( )> * EXP< + J( )>*T 
+< .5 + J( )> * EXP<-1 + J{ )>*T 
+< .5 + J( )> * EXP< 1 + J( )>*T 



READY 
> 
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Resistance Pads 

A resistance pad is a four-terminal resistor net- 
work that permits the matching of a signal source 
to a load, but with a finite amount of loss, or at- 
tenuation. This is because resistors are passive 
devices and, unlike a transistor circuit or ampli- 
fier, cannot produce gain. The four main types of 
resistance pad networks are shown in Fig. 5-9. 
The T- and Pi-networks are unbalanced pads while 
the H- and 0-pads are their respective balanced 
counterparts. When the source and load imped- 
ances are equal, these networks are referred to as 
attenuators, otherwise they are called pads when 
the source and load impedances are not equal. 

Fig. 5-10 lists a nongraphics version (ATTN- 
PADl) of the program to determine the required 
pad resistance when the source and load imped- 
ances, as well as the required amount of attenua- 
tion (in decibels) are known. The ATTNPAD2 
program in Fig. 5-11 is the same as Fig. 5-10, 
but graphics are included so that the final sche- 
matic is included as part of the video display. 

Depending on the relationship between the 
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(A) T-pad unbalanced. 
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(C) Pi-pad unbalanced. 



source and load impedances, there is usually a 
minimum value of attenuation required in order 
to satisfy the design. If more attenuation is re- 
quired, the program informs us of that fact. The 
ATTNPADl program may be easily adapted for 
use with a line printer, while ATTNPAD2 may 
not. The following examples use the ATTNPAD2 
program. 

Example 5-6 

Design a T-pad having an attenuation of 10 
dB while matching a 300-ohm source to a 75-ohm 
load. When run, we find that it is not possible to 
have 10-dB attenuation. Consequently, we must 
choose a higher value, such as 15 dB. Fig. 5-12 
shows the final circuit required. 



Example 5-7 

Design an 0-pad having an attenuation of 5 
dB between a 600-ohm source and load. Fig. 5-13 
shows the final circuit required. 



Rl/2 R2/2 

-WW- f— ViMV^o 



o 1 



INPUT 
RS 



I H3 



OUTPUT 



Rl/2 R2/a 

{B) H-pad balanced. 

R2/2 




-WAV 



H2/a 
(D) 0-pad balanced. 



Fig. 5-S. Resistive matching pads. 



100 'ATTENUATOR PAD DESIGN - WITHOUT GRAPHICS (ATTNPADl) 

101 CLS:PRINT"ATTENUATOR DESIGN:" 

102 CLEAR 

103 PRINT:PRINT"1 . T-PAD (UNBALANCED)" 

104 PRINT"2. H-PAD (BALANCED)" 

105 PRINT"3. PI-PAD (UNBALANCED)" 

106 PRINT"4. 0-PAD (BALANCED)" 

107 PRINTiINPUT" SELECT # " ; Z9 

108 ON Z9 GOTO 109 ,123 ,125 ,139 



Fig. 5-10. Listing for ATTNPADl program. 



Continued on next page. 
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CLS: PRINT, "UNBALANCED T-PAD DESIGN" 

GOSUB 147 

INPUT"ATTENUATION {IN DECIBELS) : " ; N 

GOSUB 142 

2A={ZS*C-2*X*D)/Z9:ZA=INT(ZA*10+.5)/10 

ZB=(ZL*C-2*X*D)/Z9:ZB=INTCZB*10+.5)/10 

ZC=2*X*D:ZC=INT(ZC*10+.5)/10 

IF ZA<0 OR ZB<0 THEN 117 ELSE 120 

PRINT:PRINT"MORE ATTENUATION IS REQUIRED, TRY AGAIN" 

FOR F=1 TO 500:NEXT F 

GOTO 109 

PRINT:PRINT"THEN:":PRINT"ZA =";ZA; "ORMS" : PRINT" ZB =";ZB; "OHMS" 

PRINT" ZC =";ZC;"OHMS" 

GOTO 141 

CLSrPRINT, "BALANCED H-PAD DESIGN" 

GOTO 110 

CLS: PRINT, "UNBALANCED PI-PAD DESIGN" ,, . ■ 

GOSUB 147 

INPUT" ATTENUATION (IN DECIBELS) : ";N ; 

GOSUB 142 

ZA=ZS*E:ZA=INT(ZA*10 + .5)/10 . . -,.■ 

ZB=CX/{D*2) )/(Z9-2) :ZB=INT(ZB*10+.5)/10 

ZC=ZL*E:ZC=INT{ZC*10+.5)/10 

IF ZA<0 OR ZB<0 OR ZC<0 THEN 133 ELSE 136 

PRINT: PRINT"MORE ATTENUATION IS REQUIRED, TRY AGAIN" 

FOR F=1 TO 500:NEXT F 

GOTO 125 

PRINT: PRINT" THEN: " : PRINT" ZA ="; ZA; "OHMS" : PRINT" ZB =";2B; "OHMS" 

PRINT"ZC =";ZC;"OHMS" 

GOTO 141 

CLS:PRINT, "BALANCED O-PAD DESIGN" 

GOTO 126 

END 

K2=10f (N/IO) :K=SQR(K2) 

C=(K24-1)/(K2-1) :D=K/(K2-1 ) 

Z=SQR(ZS/ZL) :X=SQR{ZL*ZS) 

E=(K2-1 )/{K2-(2*K/Z)+1 ) 

RETURN , 

PRINT: PRINT" INPUT IMPEDANCE: "; 

INPUT ZS . - ' 

PRIlSiT"LOAD IMPEDANCE : "; 

INPUT ZL: RETURN ■ - 

END 



Fig. 5-10. (cont). Listing for ATTNPADl program. 



'ATTENUATOR PAD DESIGN - WITH GRAPHICS 

CLS:PRINT"ATTENUATOR DESIGN:" 

CLEAR 

PRINT: PRINT "1 . T-PAD (UNBALANCED) " 

PRINT"2, H-PAD (BALANCED)" 

PRINT"3. PI-PAD (UNBALANCED)" 

PRINT"4. O-PAD (BALANCED)" 

PRINT: INPUT" SELECT # ";29 

ON Z9 GOTO 109 ,126 ,128 ,145 

CLS :PRINTia20 , "UNBALANCED T-PAD DESIGN" 

GOSUB 153 

INPaT"ATTENUATION (IN DECIBELS): ";N 

GOSUB 148 

2A=(ZS*C-2*X*D)/Z9:ZA=INT(ZA*10+.5)/10 

ZB=(ZL*C-2*X*D)/Z9:ZB=INT(ZB*10+.5)/10 

ZC=2*X*D:ZC=INT(ZC*10+.5)/10 



(ATTNPAD2) 



Fig. 5-11. Listing for ATTNPAD2 program. 



Continued on next page. 
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116 IF ZA<0 OR ZB<0 THEN 117 ELSE 120 

117 PRINT:PRINT"MORE ATTENUATION IS REQUIRED, TRY AGAIN" 

118 FOR F=1 TO 500:NEXT F 

119 GOTO 109 
1 20 PRINTia84 , ZA: PRINT? 1 00 , ZB: PRINT@290, ZC 

121 IF Z9=2 THEN 122 ELSE 123 ' ' ' 

122 PRINT@596,ZA:PRINTfl612,ZB 

123 GOSUB 158 

124 PRINT@832," " , , , .- 

125 GOTO 147 ' ' ' 

126 CLS:PRINT@21 ,":RAIANCED H-PAD DESIGN" 

127 GOTO 110 ■" "'fji-iy. '■;-'- "'•' "* ' "" ■'-*'^:~!' 

128 CLS:PRINTia20,"in7BALANCED PI-PAD DESIGN" "" * ''■^^..l^.' . 'l x-" -■ -^;7; - 'T -.■■: ' ',\ ^ ., 

129 GOSUB 153 

130 INPUT "ATTENUATION (IN DECIBELS): ";N 

131 GOSUB 148 
1 3 2 ZA= ZS *E : ZA= INT ( ZA* 1 0+ . 5 ) / 1 -■ 

133 ZB=CX/{D*2) )/(Z9-2) : ZB=INT ( ZB*1 0+. 5) /I 

134 ZC=ZL*E:ZC=INT(ZC*10+.5)/10 

135 IF ZA<0 OR ZB<0 OR ZC<0 THEN 136 ELSE 139 

136 PRINT:PRINT"MORE ATTENUATION IS REQUIRED, TRY AGAIN" 

137 FOR F=1 TO 500:NEXT F i'- 
1 3 8 GOTO 128 

139 PRINT(a92,ZB:PRINT@397,ZA:PRINTia425,ZC '■ ' 

140 IF Z9=4 THEN 141 ELSE 142 

141 PRINT@604,ZB 

142 GOSUB 179 

143 PRINT?832/' " ->' -■ - 

144 GOTO 147 

145 CLS:PRINT@21 /'BALANCED O-PAD DESIGN" 

146 GOTO 129 

147 END 

148 K2=10+ (N/10) :K=SQR(K2) 

149 C=(K2+1 )/(K2-1) :D=K/(K2-1) 

150 Z=SQR(ZS/ZL) :X=SQR(ZL*ZS) '.I 

151 E=(K2-1)/{K2-(2*K/Z)+1) 

152 RETURN 

153 PRINT(a704, "INPUT IMPEDANCE: "; 

154 INPUT ZS t" .-: 

155 PRINT@738/'LOAD IMPEDANCE : "; 

156 INPUT ZL:RETURN .. ■'■'■" 

157 END .■■ ;^ 

158 PRINT@256,"INPUT":PRINTg314,"LOAD" JKH r/r 

159 FOR X=30 TO 42 :SET (X, 7 ) :NEXTX 

160 FOR X=50 TO 74 : SET (X, 7 ) :NEXTX 

161 FOR X=8 2 TO 94 : SET (X, 7 ) :NEXTX . 

162 FOR Y=6 TO 8 : SET (42 , Y) : SET (50 , Y) : SET (74 , Y) : SET (82 , Y) :NEXTY '" ■^'" 

163 FOR X=42 TO 50:SET(X,6) :SET(X,8) :NEXTX 

164 FOR X=74 TO 82 : SET (X, 6) : SET (X, 8 ) :NEXTX 

165 FOR Y=7 TO 1 2 : SET (62 , Y) :NEXTY 

166 FOR Y=16 TO 22 : SET (62 , Y) :NEXTY 

167 FOR X=60 TO 64 : SET (X , 1 2) : SET (X, 1 6) :NEXTX 

168 FOR Y=12 TO 1 6 :SET (60 , Y) : SET (64 , Y) :NEXTY 

169 IF Z9=2 THEN 170 ELSE 177 

170 FOR X=3a TO 42 :SET (X, 22) iNEXTX 

171 FOR X=50 TO 74 : SET (X, 22) :NEXTX 

172 FOR X=82 TO 94 : SET (X, 22) :NEXTX 

173 FOR Y=21 TO 23 : SET (42 , Y) :SET (50 , Y) : SET (74 , Y) : SET (82 , Y) :NEXTY 

174 FOR X=42 TO 50 : SET (X, 2 1 ) : SET (X , 23 ) :NEXTX 

175 FOR X=74 TO 82 : SET (X, 2 1 ) :SET (X, 23 ) :NEXTX 

176 RETURN 

177 FOR X=30 TO 94 : SET (X, 22) iNEXTX - . vt^ ,-=■■. y^ > ■ ^ 

Continued on next page. "^ 

Fig. 5-11 (cont). Listing for ATTPAD2 program. 
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179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 



RETURN 
PRINT@2 
FOR X=3 
FOR X=6 
FOR X=5 
FOR Y=7 
FOR Y=1 
FOR Y=1 
FOR X=4 
FOR X=7 
IF Z9=4 
FOR X=3 
FOR X=6 
FOR X=5 
FOR Y=2 
RETURN 
FOR X=3 
RETURN 



56 /'INPUT" :PRINTia3 14, "LOAD" 
TO 58:SET(X,7) :NEXTX 

6 TO 94:SET(X,7) :NEXTX 

8 TO 66:SET{X,6) :SET(X,8) :NEXTX 

TO 12:SET{44,Y) :SET(80,Y) :NEXTY " '" ' ' 

6 TO 22:SET(44,Y) :SET(80,Y) :NEXTY 

2 TO 16:SET(42,y) :SET(46,Y) :SET(78,Y) :SET(82,Y) :NEXTY 
2 TO 46:SET{X,12) :SET(X,16) :NEXTX 
8 TO 82:SET(X, 12) :SET(X,16) :NEXTX 

THEN 189 ELSE 194 %.'':' *-'x' ' 

TO 58:SET(X,22) :NEXTX 

6 TO 94:SET(X,22) :NEXTX '^ ' ' '- " 
H TO 66:SET(X,21) :SET(X,23) :NEXTX 

1 TO 23:SET(58,Y) :SET{66,Y) :NEXTY 

TO 94:SET(X,22) :NEXTX 



' f . -^i -;m.-,,. : 



Fis. 5-11 (cont). Listing for ATTNPAD2 program. 



UNBALANCED T-PAD DESIGN 
264.5 24.8 



BALANCED Q-PAD DESIGN 

182.4 



INPUT IMPEDANCE: ? 300 LOAD IMPEDANCE: ? 75 

ATTENUATION (IN QECIBELS). ? 15 



INPUT IMPEDANCE: ? 600 LOAD IMPEDANCE: ? 600 
ATTENUATION (IN DECIBELS): ? 5 



Fig. 5-12. Video results of T-pad having an attenuation 
of 15da 



Fig. 5-13. Video results of O-pad having an attenuation 
of 5dB. 



Lossless Pads 

Fig. 5-14 shows two types of lossless pads that 
are used to match impedances at a single fre- 
quency. Both circuits are equivalent, and require 
that the source impedance be less than the load 
impedance. If the source impedance is greater 
than the load, then either circuit is turned around 
so that the shunt element is now in parallel with 
the source instead of with the load. 

Fig. 5-15 lists a nongraphics program (LC- 
PADl) which determines the required series ca- 
pacitor/shunt inductor circuit (Fig. 5-14A), or 
the equivalent series inductor /shunt capacitor cir- 
cuit (Fig. 5-14B) when the source and load im- 



rMPUT 




OUTPUT 



(A) Series capacitor /shunt inductor. 



■' V. ■ I 



iKPtrr 



(B) Serie% inductot / shunt co.pacitor. 
Fig. 5-14. LC lossless pads for a specific frequency. 
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pedances, aa well as the input frequency, are , • v rr- . 

known. The LCPAD2 program of Fig. 5-16 in- Example 5-8 , 

eludes a schematic which is included as part of Design a lossless pad to match a 50-ohm source 

the video display. to a 75-ohm load at 3.5 MHz. 

■ ■ f ■• . - - 

100 'LOSSLESS L-C PAD DESIGN - WITHOUT GRAPHICS (LCPADi ) 

101 CLS:PRINT, "LOSSLESS L-C PAD DESIGN" 

102 PRINT: INPUT"INPUT IMPEDANCE ";Z1 , .. ., - 

103 INPUT"LOAD IMPEDANCE " ; Z2 -. ' ■ , -^-^ <: : 

104 INPUT"INPUT FREQUENCY (IN E7.) ";F ^ f> - ,i:,i , , ,. .,- . , -_ m 

105 W=F/6. 28318 ,. , . , ^ 

106 X1=Z2*SQR(Z1/(Z2-Z1)) :X2=SQR ( Zl * { Z2-Z1 ) ) '.,--*. -J 

107 S1=1*1E9/(W*X2) :H1=X1*1E6/W € 

108 S1=INT(Sl*100+.5)/10a:H1=INT(H1*100 + .5)/100 p. 5.15 UatinK for LCPADI 

109 S2=X2*1E6/W:H2=1*1E9/(W*X1 ) ^' ^ ^ „o"ran^ LCFADl ^ 

110 S2=INT(S2*100+.5)/100:H2=INT(H2*100+.5)/100 ....-,:,■ ^ 

111 PRINT:PRINT"THEN, EITHER:" ' /i !'^rji.-< • v ■' S 

112 PRINT:PRINT"SHUNT INDUCTANCE =";Hl;"UH" ^ 

113 PRINT"SERIES CAPACITANCE =";S1;"NF'' _J 

114 PRINTTAB(6) "OR: " ^ 

115 PRINT: PRINT" SHUNT CAPACITANCE =";H2;"NF" __ 

116 PRINT"SERIES INDUCTANCE =";S2;"UH" m 

117 END 

100 'LOSSLESS L-C PAD DESIGN - GRAPHICS (LCPAD2) 

101 CLS:PRINT@20, "LOSSLESS L-C PAD DESIGN" § 

102 PRINT@640, "INPUT IMPEDANCE "; 

103 INPUT Z1 g 

104 PRINT@673/'LOAD IMPEDANCE " ; 

105 INPUT Z2 SSI 

106 INPUT"INPUT FREQUENCY (IN HZ) ";F ^ 

107 W=F/6, 28318 

108 X1 = Z2*SQR{Z1/(Z2-Z1) ) :X2=SQR(Z1* (Z2-Z1) ) ^ 

109 S1=1*1E9/(W*X2) :H1=X1*1E6/W 

110 S1=INT(S1*100+.5)/100:H1=INT(Hl*100+.5)/100 ^ 

111 S2=X2*1E6/W:H2=1*1E9/(W*X1) 

112 S2=INT(S2*100+.5)/100:H2=INT(H2*100+.5)/100 l-« 

113 PRINT@73,S1 ;"NF":PRINT@n5,S2; "UH" ** 

114 PRINT@403,H1; "UH":PRINT§431 ,H2;"NF" 

115 PRINT§286,"OR" ,£:,•-- S 

1 1 6 GOSUB 119 

117 PRINT@832," " , , ^ 
1 1 8 END '" ■'■'■" *• ^' Fig. 5-16. Listing for LCPAD2 

119 FOR X=0 TO 16:SET{X,7) :NEXT program. fs^ 

120 FOR X=18 TO 50 : SET (X, 7) :NEXT 

121 FOR Y=6 TO 8 :SST ( 1 6 , Y) : SET (1 8 , Y) :NEXT ' ' ' "' 

122 FOR X=0 TO 50:SET(X,22) iNEXT 

123 FOR Y=7 TO 1 1 : SET (36 , Y) :NEXT ^vi'';-' ■"■ ■ ■ ,. .■.>/•: i-/r ..1- K ? 

124 SET (37,11) : SET (38,1 1) :SETC37,17) :SET(38,17) 

125 FOR Y=11 TO 1 7 : SET (38 , Y) :NEXT 

126 FOR X=34 TO 37 : SET (X, 1 3) : SET (X, 1 5) :NEXT -. ^. ,. ^ 

127 FOR Y=17 TO 22 : SET (36 , Y) :NEXT "' ' ' "" '-'- - 

128 FOR X=76 TO 89 : SET (X , 7) iNEXT 
,129 SET(89,6) :SET(103,6) :FOR X=90 TO 1 02 : SET (X, 6) :NEXT 

130 FOR Y=6 TO 8:SET(93,Y) :SET(94,Y) :SET(98,Y) :SET(99,Y) :NEXT 

131 FOR X=103 TO 127:SET(X,7) :NEXT 

132 FOR Y=7 TO 1 3 : SET (1 1 3 , Y) :NEXT 

133 FOR Y=15 TO 22 : SET ( 1 1 3 , Y) :NEXT 

134 F0RX=111 TO 115:SET(X,13) :SET{X,15) :NEXT 

135 FOR X=76 TO 1 27 : SET (X, 22) :NEXT 

136 RETURN 
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The two possible circuits are shown in Fig. 
5-17, along with the required values. 

Another version of the lossless pad is to be 
able to specify the phase shift in electrical degrees. 
Depending on the source and load impedances, 
and the amount of phase shift required, there are 
four circuits possible, as shown in Fig. 5-18. The 
convention is taken that if the input signal is to 
lead the output, the phase angle is positive ; other- 
wise, it is negative if the input lags the output. 

The LCPSPADl program of Fig. 5-19 is a non- 
graphic version for designing lossless pads, while 
Fig. 5-20 is the graphics version which includes 
the schematic with component values as part of 
the video display. -. , 

Example 5-9 

Design a lossless pad to match a 50-ohm source 
with a 75-ohm load with a phase shift of +45 



LOSSLESS L-C PAD DESIGN 
50.78 NF 63.47 UH 



190,41 UH 



16.93 NF 



INPUT IMPEDANCE ? 50 LOAD IMPEDANCE ? 75 
INPUT FREQUENCY (IN HZ) ? 3.5E6 



degrees at 3.5 MHz. Repeat this example, but for 
a phase shift of —45 degrees. i < 

The final circuit for +45 degrees phase shift is 
shown in Fig. 5-21, while the display of Fig. 5-22 
shows the required circuit having a phase shift 
of —45 degrees. , _ , - ^^ - - «, ..^■. , 

PI-TEE (DELTA-WYE) TRANSFORM 

Networks often topologically appear in forms 
resembling either "Tee" or "Pi" shaped networks 
(sometimes called Wye or Delta networks), as 
shown in Fig. 5-23. Examples are the resistive at- 
tenuators discussed previously, Wheatstone bridge, 
and lattice circuits. The ability to transform from 
Tee to Pi, or vice versa, simplifies the analysis of 
a number of circuits. 

The TEEPI program listed in Fig. 5-24 allows 
the user to determine the corresponding equiva- 
lent network. The starting and equivalent sche- 
matics are displayed on the screen along with 
their values. 

Example 5-10 

For the unbalanced T-pad design of Example 
5-6, determine the equivalent Pi (or Delta) circuit. 

From the results of Example 5-6, Zl, Z2, and 
Z3 are 264.5, 55.1, and 24.8 ohms, respectively. 
The equivalent Pi circuit is shown in Fig. 5-25. 
In fact, the resulting Pi circuit should be the 
same as if we had chosen to design an unbal- 
anced Pi-pad in Example 5-6 instead of a T-pad. 



Fig. 5-17. Video results of lossless LC pad design. 



MESH CURRENT NETWORK ANALYSIS 

In an electric network, mesh currents (or loop 
currents) are produced in each circuit branch as 
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Pig. 5-18. LC lossless pads for 

use fur a specific phase shift 

and frequency. 
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(A) Large lag section. 

H C3 




OUTPUT I«PUT 
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(B) STnall 
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OUTPUT 



(C) Large lead section. 



{D) Small lead section. 
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100 'LOSSLESS L-C PAD WITH PHASE SHIFT - W/0 GRAPHICS 

101 CLS:PRINT, "LOSSLESS L-C PAD DESIGN" 

102 PRINT: INPUT"INPUT IMPEDANCE ";Z1 ' '''■' 

103 INPUT"LOAD IMPEDANCE ";Z2 ^' 

104 INPUT"INPUT FREQUENCY (IN HZ) ";F 

105 PRINT"REQUIRED PHASE SHIFT (IN DEGREES) " 

106 INPUT" (+/- ANGLE, INPUT SIGNAL LEAD/LAGS OUTPUT) 

107 PRINT:PRINT"THEN:" 

108 W=F/6.28319:R=D/57.2957 

109 Z=Z1/Z2:Y=SQR{Z) ' '- ' ' ■' 

110 A=Z*SIN(R)/(Y-COS(R) ) 

111 B=Y*SINtR) 

112 C=Y*SIN(R)/{1-Y*C0S(R) ) ■ , 

113 IP R<0 THEN 115 ELSE 114 , i. ■> ■- 

114 IF R>0 THEN 135 ELSE 113 

115 X3=Z1/ABSCB) :L3=X3*1E6/W 

116 X2=Z1/ABS(A) :C2=1E9/(W*X2) , \ '■. , i 

117 L3=INT(L3*100+.5)/100 

118 C2=INT(C2*100+.5)/100 

119 IF C<0 THEN 121 ELSE 120 

120 IF OO THEN 129 ELSE 119 

121 X1=Z1/ABSCC) :C1=1E9/(W*X1 ) 

122 Cl=INT{C1*100+.5)/100 ' ■' 

123 C2=INT(C2*100+.5)/100 

124 L3=INT(L3*100+.5)/100 

125 PRINT"ELEMENT 1 (CAPACITOR) =";C1;"NP" 

126 PRINT"ELEMENT 2 (CAPACITOR) =";C2;"NF" 

127 PRINT"ELEMENT. 3 (INDUCTOR) =";L3;"UH" 

128 GOTO 151 

129 X1=Z1/C:L1=X1*1E6/W 

130 Ll=INT(Ll*100+.5)/100 

131 PRINT"ELEMENT 1 (INDUCTOR) =";L1;"UH" 

132 PRINT"ELEMENT 2 (CAPACITOR) =";C2;"NF" 

133 PRINT"ELEMENT 3 (INDUCTOR) =";L3;"UH" 

134 GOTO 151 

135 X2=Z1/A:L2=X2*1E6/W:X3=Z1/B:C3=1E9/(W*X3) 

136 L2=INT(L2*100+.5)/100 

137 C3=INT{C3*100+.5)/100 

138 IF C<0 THEN 140 ELSE 139 

139 IF OO THEN 146 ELSE 138 

140 X1=Z1/ABS(C) :C1=1E9/(X1*W) 

141 C1=INT(Cl*100+.5)/100 

142 PRINT"ELEMENT 1 (CAPACITOR) ="rC1;"NF" 

143 PRINT"ELEMENT 2 (INDUCTOR) =";L2;"UH" 

144 PRINT"ELEMENT 3 (CAPACITOR) ="?C3;"NF" -^■.^■>\:> 

145 GOTO 151 

146 X1=Z1/C:L1=X1*1E6/W 

147 Ll=INT{L1*100+.5)/100 c 

148 PRINT"ELEMENT 1 (INDUCTOR) =";L1;"UH" --•-. . - 

149 PRINT"ELEMENT 2 (INDUCTOR) =";L2;"UH" 

150 PRINT"ELEMENT 3 (CAPACITOR) =";C3;"NF" - -^ 

151 PRINT: PRINT: END 
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Fig. 5-19. Listing for LCPSPADl program. 
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129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

163 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 
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L1 = INT(L1*100+.5)/100 ., 

PRINT^205,L1 ; "UH" : PRINT@234 ,L3 ; "UH" 

PRINT9256, "INPUT" : PRINT@314/' OUTPUT" :PRINT@354,C2;"NF" 
GOSUB 159 :GOTO 148 

X2=Z1/A:L2=X2*1E6/W:X3=Z1/B:C3=1E9/(W*X3) 

L2=INT{L2*100+.5)/100 

C3=INT{C3*100+.5)/100 i 

IF C<0 THEN 138 ELSE 137 ' . - - i r . 

IF OO THEN 143 ELSE 136 '.'-.''' 

X1=Z1/ABSCC) :C1=1E9/(X1*W) " ' '' 

C1=INT(C1*100+.5)/100 

PRINT@202,C1 ;"NF":PRINT^238,C3;*'NF" 

PRINT@256, "INPUT" :PRINT@3 14, "OUTPUT" :PRINT@354,L2;"UH" 
GOSUB 170 :GOT0 148 

X1=Z1/C:L1=X1*1E6/W 

L1=INT{L1*100+.5)/100_ ^ 

PRINT@20 5,L1 ;"UH":PRINT@238,C3;"NF" 

PRINT@256/'INPUT":PRINT§314,"OUTPUT":PRINT@35^,L2;"UH" 
GOSUB 180 

PRINT^832," ":END 

FOR X=10 TO 36:SET(X,7) :NEXT , -■ , 

X=39 TO 83:SET(X,7) :NEXT 

X=98 TO 117:SET(X,7) :NEXT 

Y=6 TO B:SET(36,Y) :SET(39,Y) :NEXT 
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FOR 
FOR 
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FOR 
FOR 
FOR 
FOR 
FOR 
FOR 
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FOR 
FOR 
FOR 
FOR 
FOR 
FOR 
FOR 
FOR 
FOR 
FOR 
FOR 
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X=83 TO 98:SET(X,6) :NEXT 

Y=6 TO 8:SETC88.,Y) :SET(87,Y) :SET{93,Y) :SET(94,Y) iNEXT 

Y=7 TO 13:SET(64,Y) :NEXT ■ ; 

Y=15 TO 22:SET(64,Y) :NEXT 

X=62 TO 66:SET(X,13) :SETCX, 15) :NEXT 

X=10 TO 117:SET(X,22) :NEXT:RETURN 

X=10 TO 30:SET(X,7) :NEXT '' 

X=45 TO 83:SET(X,7) :NEXT 

X=98 TO 1 17:SET(X,7) :NEXT 

X=30 TO 45:SET{X,6) :NEXT 

X=a3 TO 9a:SETCX,6) :NEXT 

Y=6 TO 8:SET(35,Y) :SET(34,Y) :SET{40,Y) :SET(41,Y) :NEXT 

Y=6 TO 8:SETCa7,Y) :SET(88,Y) :SET{93,Y) :SETC94,Y) :NEXT 

X=10 TO 117:SET{X,22) :NEXT 

Y=7 TO 13:SET(64,Y) :NEXT 

Y=15 TO 22:SET(64,Y) :NEXT 

X=62 TO 66:SET(X,13) :SET(X,15) :NEXT:RETURN 

X=10 TO 36:SET{X,7) :NEXT 

X=39 TO 90:SET(X,7) :NEXT 

X=93 TO 117:SETCX,7) :NEXT 
FOR Y=6 TO 8:SET{36,y) :SET(39,Y) :SET{90,Y) :SET(93,Y) iNEXT 
FOR X=10 TO 117:SET(X,22) :NEXT 
FOR Y=7 TO 11 :SET(64,Y) :NEXT 
FOR Y=17 TO 22:SET(64,Y) :NEXT 
SET(65,11) :SETC65,17) 
FOR Y=11 TO 17:SET(66,Y) :NEXT 

FOR X=62 TO 66:SET(X,13) :SET(X,15) :NEXT:RETURN 
FOR X=10 TO 30:SETCX,7) :NEXT '' * -" ''>^'—' 

FOR X=45 TO 90:SET(X,7) :NEXT 
FOR X=93 TO 117:SET(X,7) :NEXT 
FOR X=30 TO 45:SET(X,6) :NEXT 

FOR Y=6 TO 8:SET(35,Y) :SET(36,Y) :SETC4a,Y) :SET(41,Y) :NEXT 
FOR y=6 TO 8:SET(90,Y) :SET(93,Y) :NEXT 
FOR X=10 TO 1 17:SET(X,22) :NEXT 
FOR Y=7 TO 11 :SET(64,Y) :NEXT 
FOR Y=17 TO 22:SET(64,Y) :NEXT 
F0RY=11 TO 17:SET{66,Y) :SET(67,Y) :NEXT 
FOR X=62 TO 65:SET(X,15) :SET{X,13) :NEXT 
SET (6 5, 11 ) :SET(65,17) : RETURN 

Fig. 5-20. Listing for LCPSPAD2 program. 
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100 'LOSSLESS L-C PAD WITH PHASE SHIFT - W/GRAPHICS (LCPSPAD2) 

101 CLS:PRINT@20, "LOSSLESS L-C PAD DESIGN" 

102 PRINT@576, "INPUT IMPEDANCE "? 

103 INPUT Z1 

104 PRINT@611 /'LOAD IMPEDANCE "; " ' ' ^ •'■ - ' 

105 INPUT Z2 

106 INPUT"INPUT FREQUENCY (IN HZ) ";F . ' ' ' 

107 PRINT"REQUIRED PHASE SHIFT (IN DEGREES) " i ' * .- 

108 INPUT" (+/- ANGLE, INPUT SIGNAL LEADS/LAGS OUTPUT) ";D 

109 W=F/6.28319:R=D/57.2957 

110 Z=Z1/Z2:Y=SQRCZ) ^ 

111 A=Z*SIN(R)/(Y-COS(R) ) 

112 B=Y*SINCR) 

113 C=Y*SIN{R)/{1-Y*C0S(R) ) 

1 1 4 IF R<0 THEN 1 1 6 ELSE 1 1 5 

115 IF R>0 THEN 133 ELSE 114 '' 

116 X3=Z1/ABS{B) :L3=X3*1E6/W ' " *-- 

117 X2=Z1/ABS{A) :C2=1E9/(W*X2) y 7 , .. i 

118 L3=INT{L3*100+.5)/100 

119 C2=INT(C2*100+.5)/100 

120 IF C<0 THEN 122 ELSE 121 ''•'' 

121 IF 00 THEN 128 ELSE 120 ^ ' ■ C 

122 X1=Z1/ABS(C) :C1=1E9/(W*X1) 

123 C1 = INTCC1*100+.5)/100 " "■>" 

124 L3=INT{L3*100+.5)/100 - -v- ■ ■' 

125 PRINT@205,C1; "NF":PRINT@2 36,L3;"UH" 

126 PRINTia256, " INPUT" :PRINT@3 14, "OUTPUT" : PRINT@35 4, C2;"NF" 

127 GOSUB 149 :GOTO 148 

128 X1=Z1/C:L1=X1*1E6/W "--'.;.-,■-. i-' , , : 

Fig. 5-20 (cont). Listing for LCPSPAD2 program. 
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LOSSLESS L-C PAD DESIGN 



LOSSLESS L-C PAD DESIGN 



65.71 UH 



20.73 NF 



49.05 NF 



20.83 UH 
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INPUT IMPEDANCE ? 50 LOAD IMPEDANCE ? 75 

INPUT FREQUENCY (IN HZ) ? 3.5E6 
REQUIRED PHASE SHIFT (IN DEGREES) 
( + /- ANGLE, INPUT SIGNAL LEADS/LAGS OUTPUT) ? 45 



INPUT IMPEDANCE ? 50 LOAD IMPEDANCE ? 75 

INPUT FREQUENCY (IN HZ) ? 3.5E6 
REQUIRED PHASE SHIFT (IN DEGREES) 
(+ / - ANGLE. INPUT SIGNAL LEADS/LAGS OUTPUT) ? - 45 



Fig. 5-21, Video results of LC lossless pad for 45 degrees 
phase shift 



Fig. 5-22. Video results of LC lossless pad for —45 degrees 
phase shift. 
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Fig. 5-23. Pi-Tee and Delta-Wye 
equivalent networks. 
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TEE ■: I ' ;■ ■-: /('i.^ .. i'*»",nLi .ivl .. i*ij> >> I i-": ; 

100 'PI-TEE (DELTA-WYE) TRANSFORM - TEEPI 

101 CLS:PRINT, "PI-TEE (DELTA-WYE) TRANSFORMATION" 

102 PRINT:PRINT:PRINT"SELECT:" 

103 PRINT" 1. <T>EE ";CHR${94);" PI" 

104 PRINT" 2. <P>I ";CHR$ (94) ;" 'TEE" 

105 INPUT" CHOICE ";C$ 

106 IF C$<>"T" AND C$<>"P" THEN 105 

107 IF C$="T" THEN 108 ELSE 120 

108 CLS:PRINT, "TEE-TO-PI TRANSFORMATION" 

109 GOSUB 154 :PRINTia286 , " TO >":GOSUB 155 :GOSUB 133 

110 PRINT@576,"Z1 " ; 

111 INPUTZ1 :PRINT@603,"Z2 "; 

112 INPUTZ2:PRINT@624,"Z3 " ; 

113 INPUT Z3 

114 ZA=Z3+Z1+(Z3*Z1/Z2) 

115 ZB=Z1+Z2+(Z1*Z2/Z3) 

116 ZC=Z2+Z3+(Z2*Z3/Z1) 

117 PRINT"THEN:":PRINT 

118 PRINT§768/'ZA =" ? ZA:PRINT@795 , "ZB =" ; ZB: PRINT@81 6 , "ZC =";ZC 

119 PRINT:END 

120 CLS:PRINT, "PI-TO-TEE TRANSFORMATION" 

121 GOSUB 154 :PRINT(a286/'< TO":GOSUB 155 :GOSUB 133 

122 PRINTia576,"ZA "; 

123 INPUTZA:PRINT§603,"ZB "; 

124 INPUTZB:PRINTia624,"ZC "; 

125 INPUT ZC 

126 Z=ZA+ZB-I-ZC '"■ ' ' '■■'. „ 

127 Z1=ZB*ZA/Z ^ ' '" 

128 Z2=ZB*ZC/Z -~ ■ " 

129 Z3=ZA*ZC/Z 

130 PRINT"THEN:": PRINT 

131 PRINT@76B/'Z1 =" ; Z1 :PRINT@795 , "Z3 =" ; Z3 :PRINT?8 1 6 , " Z2 =";Z2 

132 PRINT: END 

133 FOR X=0 TO 8 : SET {X, 7 ) :NEXT 

Fig. 5-24. Liating for TEEPI program. 
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135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 



FOR X=16 TO 35:SET(X,7) :NEXT ,■ ■" ■ 

FOR X=43 TO 50:SET{X,7) :NEXT 1 

FOR X=0 TO 50:SET(X,22) :NEXT __ ^ 

FOR X=8 TO 16:SET(X,6) :SET(X,8) :NEXT 

FOR X=35 TO 43:SET(X,6) :EET{X,8) :NEXT 

FOR Y=7 TO 12:SET{25,Y) :NEXT 

FOR y=16 TO 22:SET(25,Y) :NEXT * ,. ^.--^w^^i- t~ 

FOR X=23 TO 27:SET(X, 12) :SET(X,16) :NEXT 

FOR Y=12 TO 16:SET(23,Y) :SET(27,Y) :NEXT ■ ^'^- -' " - 

FOR X=76 TO 97:SET(X,7) :NEXT 

FOR X=105 TO 127:SET(X,7) :NEXT 

FOR X=76 TO 127:SET{X,22) :NEXT 

FOR X=9 7 TO 105:SET(X,6) :SET(X,8) :NEXT 

FOR Y=6 TO 8:SET{97,Y) :SETC105,Y) :NEXT 

FOR Y=7 TO 12:SET{90,Y) :SET(1 13,Y) :NEXT 

FOR Y=16 TO 22:SET{90,Y) :SETC113,Y) :NEXT 

FOR X=88 TO 92:SET(X,12) :SET(X,16) :NEXT 

FOR X=111 TO 115:SET{X,12) :SETCX,16) :NEXT 

FOR y=12 TO 16:SET(88,Y) :SET(92,Y) :SET{11 1 ,Y) :SET(1 15,Y) 

RETURN 

PRINTS 1 9 7 , " Z 1 " : PRINT^2 11 , " Z 3 " : PRINT(a2 4 2 , " ZA" : RETURN 

PRINTia335/'Z2":PRINT@361 , "ZC" :PRINT(a3 79 , "ZB" : RETURN 



}■'■ 



iNEXT 



M 



Fig. 5-24 (cont). Listing for TEEPI program. 
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TEE-TD-PI TRANSFORMATION 



Z1 ? 264.5 
THEN: 

ZA = 408.349 



Z2 ? 55.1 Z3 ? 24.8 



ZB = 907.259 ZC = 85.0663 



Fig. 5-25. Video results of Tee-to-Pi transformation. 



a result of one or more applied voltage sources. 
From these mesh currents, one can then determine 
the voltage across or the current through any 
network element. 

Once the mesh equations are established, the 
individual mesh currents are found by solving a 
set of simultaneous equations. Fig. 5-26 shows 
the SIMULEQU program listing to solve a set of 
simultaneous equations having real coefficients, if 
a solution is possible. When run, the program re- 
quires the number of equations, which is the same 
number of unknown variables and the minimum 
allowable value for any solution, which usually is 
set at lE-6 (10""). The coefficients are then en- 
tered, one at a time for each equation, with the 
constant term entered last. For the equation : 

9X - 8Y + 3Z = 5 

the "9" is the first coefficient, while the "5" is the 
fourth coefficient. 



OF SIMULTANEOUS EQUATIONS WITH REAL COEFFICIENTS (SIMULEQU) 



,100 'SOLUTION 

101 CLEAR :CLS 

102 DIM AC10,11) ,X(10) 

103 PRINT"S0LUTION OF SIMULTANEOUS LINEAR EQUATIONS" 

104 PRINT: INPUT"NUMBER OF EQUATIONS/VARIABLES ";N 

105 INPUT"MINIMUM VALUE FOR ANY COEFFICIENT ";MV 

106 M=N+1 

107 FOR 1=1 TON 

108 PRINT"COEFFICENTS FOR EQUATION";! 

109 F0RJ=1T0M 

110 INPUT" ";A{I,J) 

1 1 1 NEXTJ 



Fig. 5-26. Listing for SIMULEQU program. 
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112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 



NEXT I 

KK=0:JJ=0 

FOR 1=1 TON 

JJ=KK+1 :LL=JJ:KK=KK+1 

IF (ABS(A(JJ,KK) )-MV)<=0 THEN 117 

JJ=JJ+1 

G0T0116 

IF (LL-JJ)=0 THEN 125 ELSE 120 

FOR MM=1T0M 

2;=A(LL,MM) 

A(LL,MM)=A(JJ,MM) 

A{JJ,MM)=2 

NEXT iyiM -'■■■: •-■ 

D=A(I,I) 

FOR J=I TO M 

A(I,J)=A(I,J)/D 

NEXTJ 

K=I+1 

IF(K-M)<0 THEN 131 ELSE 138 

FORL=KTON 

Y=ACL,I) 

FOR J=I TO M 

A(L,J)=A{L,J)-A(I,J)*Y 

NEXTJ 

NEXTL 

NEXTI , . 

X(N)=A(N,M) V ': ' 

L=N 

FOR J=2T0N 

S=0 

I=M+1-J 

FOR K=ITON 

S=S+ACI-1 ,K)*X(K) 

NEXTK - < 

L=L-1 

X(L)=A(I-1 ,M)-S 

NEXTJ 

PRINT: PRINT"THE SOLUTIONS ARE:" 

F0RI=1T0N 

PRINT"x(";I;") =",X(I) 

NEXTI 

END 



ELSE 1 1 9 
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Fig. 5-26 (cont). Listing for SIMULEQU program. 
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Example 5-11 

Determine the mesh currents I^, It, and I,, for 
the network shown in Fig. 5-27, whose three mesh 
equations can be shown to be written as : 

(30)1.- (lO)It,- (20)1, = 10 
-(10)I«+ OOIb- (50)1,-0 

-(20)I«- (50)Ib+ (110)1,-0 

Fig. 5-28 shows the computed solutions for these 
equations so that I„, Ih, and I^ are 0.477419, 
0.135484, and 0.148387 amps, respectively. It is 
then an easy manner to apply Ohm's law to deter- 
mine the current through or the voltage across 



each resistor. For example, the current through 
the 20-ohm resistor is 0.477419 - 0.148387, or 
0.329032 amps, while the voltage drop across it 
is (0.329032) (20), or 6.58 volts. 

Example 5-12 

Using the network of Fig. 5-29, determine the 
five branch currents using Kirchhoff's current 
and voltage laws. 

At nodes A and B, application of the current 
law gives the two equations : 

'''' ''^ h-h-h = 
h-U-h=0 
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while the voltage law yields the following three 
equations : 

-(20000)14 + (40000)1., = 240 
-(40000)12 + (10000)l3' + (20000)14 = 

(20000) Ii+ (40000)12 = 120 

so that there are five equations with five unknown 
currents. Fig. 5-30 shows the five computed solu- 
tions for this network, 

SOLUTION OF SIMULTANEOUS LINEAR EQUATIONS 



Fig. 5-27. Mesh currents network. 



SOLUTION OF SIMULTANEOUS LINEAR EQUATIONS 

NUMBER OF EQUATIONS/VARIABLES ? 3 
MINIMUM VALUE FOR ANY SOLUTION ? 1E-6 
COEFFICENTS FOR EQUATION 1 : 

# 1 ? 30 '-"" 

# 2 ? -10 

# 3 ? -20 

# 4 ? 10 

COEFFICENTS FOR EQUATION 2 : 

# 1 ? -10 

# 2 ? 90 

# 3 ? -50 

# 4 ? 

COEFFICENTS FOR EQUATION 3 : 

# 1 ? -20 
#2-2-50 

# 3 ?-110 

# 4 ? 



THE SOLUTIONS ARE: 
X( 1 ) = .477419 
X( 2 ) = .135484 
X( 3 ) = .143387 

READY 



Fig. 5-28. Computed solutions for mesh currents. 



NUMBER OF EQUATIONS/VARIABLES ? 5 




MINIMUM VALUE FOR ANY SOLUTION ? 1 E- 


-6 


COEFFICENTS 


FOR EQUATION 1 : 




# 1 ? 1 






# 2 ? -1 






# 3 ? -1 






# 4 ? 


W ' 




# 5 ? 






# 6 ? 






COEFFICENTS 


FOR EQUATION 2 : 




# 1 ? 






# 2 ? 


( 1 1 ^ 




# 3 ? 1 






# 4 ? -1 






# 5 ? -1 






# 6 ? 






COEFFICENTS 


FOR EQUATION 3 : 




# 1 ? 






# 2 ? 






# 3 ? 






# 4 ? -2000C 






# 5 ? 40000 






# 6 ? 240 






COEFFICENTS 


FOR EQUATION 4 : 




# 1 ? 






# 2 ? -4000C 






# 3 ? 10000 






# 4 ? 20000 






# 5 ? 






# 6 ? 






COEFFICENTS 


FOR EQUATION 5 : 




# 1 ? 20000 


■ ■-= 




# 2 ? 40000 






# 3 ? 


-. >. ,'i, ■..■ 1 




# 4 ? 






# 5 ? 






# 6 ? 120 
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LDDP CURRENTS It, lb, AND Ic IRE ARBITRARILY TAKEN AS CLOCKWISE 



Fig. 5-29. Circuit for Example 5-12. 



THE SOLUTIONS ARE: 
X( 1 ) = 4.90909E-03 
) = 5.45454E-04 
= 4.36364E-03 
) =-1.09091E-03 
) = 5.45455E-03 
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Fig. 5-30. Computed solutions for branch currents. 



1 



Networks and Transforms 



83 



The SIMULEQU program is not valid for com- 
plex coefficients, which results from circuits hav- 
ing capacitors and/or inductors in addition to re- 
sistors and voltage sources. However, simulta- 
neous equations with complex coeificients are 
solved using the CPLXSEQ program listed in 
Fig. 5-31. 

When run, the program requires the number of 
equations, which is the same number of unknown 
variables, and the minimum allowable value for 
any solution, which usually is set at IE - 6 (10-«). 
The real and imaginary parts of each coefficient 
are then entered, one at a time for each equation, 
with the constant term entered last, as shown in 
the following example. 



Example 5-13 

For the circuit shown in Fig. 5-32, determine 
the three loop currents. Writing Kirchhoff's volt- 
age law in rectangular form, we have: 

(7 + 3j)Ii- (5j)l2- (5)13 = 10/0 = 10 

-(5j)I, + (12 + 3j)l2- (2-2j)l3 = -5/30 

= 4.33 - 2.5j 

-(5)Ii- (2-2j)l2+ (17 -2j)l3 = -10/90 

= -10j 

Fig. 5-33 shows the computed results that were 
obtained. ■--'■.■ 



100 'SIMULATANEOUS EQUATIONS WITH COMPLEX COEFFICENTS (CPLXSEQ) 

101 CLS: DIM A(10,22) ,B{20,22) ,P(ia) 

102 INPUT"NUMBER OF EQUATIONS ";N - 

103 INPUT"MINIMUM VALUE FOR ANY SOLUTION, " ; EP , r" 

104 MA=2*N-1 :MB=2*N+1 :MC=2*N:MD=2*N+2 

105 PRINT:PRINT"ENTER: " 

106 FOR 1=1 TO N " - ■ 

107 PRINT"FOR EQUATION #";I 

108 FOR J=1 TO MD STEP 2 

109 IF J=MD-1 THEN 112 

110 PRINT" COEFFICIENT" ; INT ( J/2 )+1 ;": REAL, IMAGINARY " ; 

111 GOTO 113 

112 PRINT" CONSTANT TERM" ; INT {J/2 ) +1 ;" : REAL, IMAGINARY "; 

113 INPUT A(I,J) ,A(I,J+1) 

114 NEXT J 

115 NEXT I 

116 IK=-1 

117 FOR 1=1 TO MA STEP 2 

118 IK=IK+1 

119 FOR J=1 TO MB STEP 2 

120 LJ=I-IK 

121 B(I,J)=A(LJ,J) :B(I,J+1)=-A{LJ,J+1) :NEXT J 

122 NEXT I 

123 FOR 1=2 TO MC STEP 2 

124 FOR J=1 TO MB STEP 2 

125 LJ=I/2:B{I,J)=A(LJ,J+1).:B(I,J+1)=A(LJ,J) :NEXT J 

126 NEXT I 

127 JJ=1 

128 FOR 1=1 TO MC 

129 KK=I-1 

130 IF ABS(B(I,I) )-EP<>0 THEN 137 

131 KK=KK+1 :LL=0 

132 LL=LL+1 

133 FOR J=1 TO MR 

134 BT=B{KK,J) :KL=KK+LL:B (KK, J) =B (KL, J) 

135 B(KL,J)=BT:NEXT J 

136 IF ABS(B(I,I) )-EP=0 THEN 132 ELSE 137 

137 BT=B(I,I) 

138 FOR K=1 TO MB: B (I , K) =B (I ,K) /BT:NEXT K 

139 JJ=JJ+1 

140 FOR J^=JJ TO MC:BT=B(J,I) 

141 FOR K=1 TO MB:B(J,K)=B(J,K)-BT*B(I,K) :NEXT K 

142 NEXT J 

143 NEXT I 

Fig. 5-31. Listing for CPLXSEQ program. 
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144 B(MC,MB)=B(MC,MB)/B(MC,MC} :B(MC,MC)=1 : JJ=1 :KK=2 

145 FOR 1=1 TO JJ 

146 BT=B(I,KK) 

147 FOR J=KK TO MB . ' ,. ' ' 

148 B(I,J)=B(I,J)-BT*B(KK,J) :NEXT J 

149 NEXT I 

150 JJ=JJ+1 :KK=KK+1 

151 IF JJ-MCOO THEN 145 ELSE 152 

152 K=0 

153 CLS:PRINT"THE SOLUTIONS ARE:" 

154 PRINT:PRINTTAB(11)"REAL"jTAB(26) "IMAGINARY"; 

155 PRINTTABC41 ) "MAGNITUDE" ; TAB (56) "PHASE" 

156 FOR 1=1 TO MC STEP 2 

157 K=K+1 

158 X(K)=SQR{ (B(I+1 ,MB)+2)+(B(I,MB)+2) ) '.' ■'.-"W'.- rfi^* 4 ''.■'■ '^'iC'^ 

159 PA=ATNCB(I+1 ,MB)/B(I, MB) )*57. 92577 'i- .' ',?-. OS ,/,'•; ' 

160 IF B(I,MB)<0 THEN 161 ELSE 162 - <1 : ' 

161 P{K)=PA+180:GOTO 163 ?S ; ' <■''■*■'. '■- '^ '-A 

162 P(K)=PA ■, V ■ . - 

163 P{K)=INT(P(K)*100+.5)/100 

164 PRINT"X{";K; " ) " ; TAB ( 1 0) B (I,MB) ; TAB (25) B (1+1 ,MB) ;TAB(40)X(K) rTAB(55)P(K) 

165 NEXT I 

166 PRINTiEND 

Fig. 5-31. (cont). Listing for CPLXSEQ program. r 'i: ;• " 
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Fig. 5-32. Loop currents network. 
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number of equations ? 3 

minimum value for any solution ? 1e-6 



ENTER: 

FOR EQUATION # 1 
COEFFICIENT 1 
COEFFICIENT 2 
COEFFICIENT 3 
CONSTANT TERM 

FOR EQUATION # 2 
COEFFICIENT 1 
COEFFICIENT 2 
COEFFICIENT 3 
CONSTANT TERM 

FOR EQUATION # 3 
COEFFICIENT 1 
COEFFICIENT 2 
COEFFICIENT 3 
CONSTANT TERM 



: REAL, IMAGINARY ? 7,3 

-: REAL, IMAGINARY ? 0,-5 

:' REAL, IMAGINARY ? 5,0 

4 : REAL, IMAGINARY ? 10,0 

: REAL, IMAGINARY ? 0,-5 

: REAL, IMAGINARY ? 12,3 

: REAL, IMAGINARY ? -2,2 

4 : REAL, IMAGINARY ? -4.33,-2.50 

: REAL, IMAGINARY ? -5 , 

: REAL, IMAGINARY ? -2 , 2 

: REAL, IMAGINARY ? 17,-2 

4 : REAL, IMAGINARY ? 0,-10 



THE SOLUTIONS ARE: 





REAL 


IMAGINARY 


MAGNITUDE 


PHASE 


X( 1 ) 


.866082 


-.641543 


1 .07781 


-36.93 


X{ 2 ) 


.0611964 


.172112 


.182668 


71.2 


X( 3 ) 


.230448 


.439707 


.496436 


63.03 



READY 



*'>- 



!-X -'...■- ^ ' ■ 

Fig. 5*33. Computed results for loop currents. • 
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This chapter describes programs for the rapid 
design of various types of active filters. Those in- 
cluded are the state-variable filter (3 op-amps) ; 
second- through sixth-order low-pass and high- 
pass filters having either Bessel (best delay), But- 
terworth (maximally flat), or Chebyshev (equal 
ripple) responses; bandpass filters; and notch 
filters. Each design determines the performance 
based on user selected standard resistor and ca- 
pacitor values. For a more detailed discussion 
about active filters, either the Design 0/ Active. 
Filters, with Experiments, or the Active Filter 
Cookbook (Howard W. Sams & Co., Inc., Indi- 
anapolis, IN 46206) are recommended references. 

LOW-PASS AND HIGH-PASS FILTERS 

The LPHP program listing shown in Fig. 6-1 
enables us to design second- through sixth-order 
low-pass or high-pass filters having either Bessel, 
Butterworth, or Chebyshev (1-, 2-, or 3-dB) re- 
sponses. Shown in Figs. 6-2 through 6-11 are the 
circuits of the low-pass and high-pass filters. Each 
second-order section is of the voltage-controlled 
voltage-source design (often referred to as a Sal- 
len-Key filter) with both the frequency determin- 
ing resistors R and capacitors C made equal. For 
the third- and fifth-order filters, the first section 
is a simple first-order passive network followed 
by a voltage follower. The damping values for 
each second-order section are controlled by resis- 
tors RA and RB. Because the program restricts 
the design of the filter to having both the fre- 
quency determining resistors and capacitors equal 
for each second-order section, the overall pass- 
band gain will be fixed, being set by the values 
chosen for RA and RB. 



Example 6-1 

Design a third-order, 350-Hz high-pass filter 
having a 1-dB Chebyshev response. When exe- 
cuted, the LPHP program requires the following 
initial information : 

1. Type of filter 

2. Order of filter 

3. Low-pass or high-pass response 

4. Cutoff frequency 

5. Standard capacitor value 

From this information, the remaining ideal com- 
ponent values are determined, after which we are 
asked to enter standard component values that are 
closest to the ideal values. The output results and 
final circuit for the design are shown in Figs. 6-1? 
and 6-13. 

Example 6-2 

Design a sixth-order, 3000-Hz Butterworth low- 
pass filter. As shown in the output results in Fig. 
6-14, we only have to determine the frequency 
determining resistors and capacitors as for the 
first section, since they are the same for the re- 
maining sections in a Butterworth design. The 
final circuit is shown in Fig. 6-15, 

THE STATE-VARIABLE FILTER * * 

The state-variable filter, shown in Fig. 6-16, 
uses three operational amplifiers, so that there are 
the following output responses : second-order low- 
pass, second-order high-pass, and a single pole 
bandpass. Resistors R and capacitors C deter- 
mine the cutoff (or center) frequency, while re- 
sistors RA and RB control the damping (or Q). 
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100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 



INT(RB*100+.5)/100;"K-OHMS" 

(YES/NO) ";Z$ 

270 



fT-iO 



'LOW AND HIGH-PASS FILTER DESIGN (LPHP) 

CLS:CLEAR:DIM F$(5),VF(120) 

GOTO 340 

FOR V=1 TO 110 

READ VF(V) :NEXT V . ■■ 

CLS:PRINTF${TY) ;" FILTER DESIGN" 

PRINT:PRINT:PRINT"SELECT:'':PRINT 

INPUT"LOW-PASS CD OR HIGH-PASS (2) ";PR 

INPUT"ORDER OF FILTER ";0 

IF 0<2 OR 0>6 GOTO 108 ELSE 110 

INPUT"CUTOFF FREQUENCY IN HZ " ; FC 

ON 0-1 GOTO 113 ,128 ,153 ,184 ,224 

'2ND ORDER DESIGN 

CLS:PRINT"1ST SECTION (2ND ORDER):" " ' *■ 

PRINT: INPUT"C IN UF ";C 

K=VF( ((TY-1)*22)+1) 

IF FR=1 THEN 118 ELSE 117 

F=FC/K:G0T6 119 

F=FC*K 

R=1000/(6.28*F*C) :PRINT" THEN R =" ; INT (R*1 00+. 5) /I 00; "K-OHMS" 

INPUT"TRY ANOTHER VALUE FOR C (YES/NO) ";Z$ 

IF Z$="YES" THEN 114 ELSE 122 

INPUT"RA IN K-OHMS " ; RA 

D=VF( (TY-1)*22+2) 

RB=RA* (2-D) :PRINT" RB ="i 

INPUT"ANOTHER VALUE FOR RA 

IF Z$="YES" THEN 122 ELSE 

'3RD ORDER DESIGN 

CLS:PRINT"1ST SECTION (IST ORDER! 

PRINT: INPUT"C IN UF ";C1 

K=VF( ( (TY-1)*22)+3) 

IF FR=1 THEN 133 ELSE 132 

F1=FC/K:G0T0 134 

F1=PC*K 

R1=1000/(6.28*F1*C1) :PRINT" 

INPUT"TRY ANOTHER VALUE FOR C (YES/NO) 

IF Z$="YES" THEN 129 ELSE 137 

CLS:PRINT"2ND SECTION (2ND ORDER):" 

IF TY=2 THEN 139 ELSE 140 i 

C2=C1 :R2=R1 :F2=F1 :PRINT:GOTO 148 

PRINT:INPUT"C IN UF ";C2 

K2=VF( ( {TY-1)*22)+5) ^ 

IF FR=1 THEN 144 ELSE 143 

F2=FC/K2:GOTO 145 

F2=PC*K2 

R2=1000/(6.28*F2*C2) :PRINT" THEN R =' 

INPUT"TRY ANOTHER VALUE FOR C (YES/NO) 

IF Z$="YES" THEN 140 ELSE 148 

D=VF( (TY-1 )*22+6) 

INPUT"RA IN K-OHMS "; R3 :R4-R3* ( 2-D) : PRINT" 

INPUT"TRY ANOTHER VALUE FOR RA (YES/NO) 

IF Z$="YES" THEN 149 ELSE 283 

•4TH ORDER DESIGN 

CLS: PRINT" 1ST SECTION {2ND ORDER):" 

K=VF(( (TY-1)*22)+7) 

PRINT: INPUT"C IN UF ";C1 

IF FR=1 THEN 157 ELSE 158 

F1=FC/K:G0T0 159 

F1=FC*K 

R1=1000/{6.28*F1*C1) :PRINT" THEN R =" ; INT {R1 * 1 00+ . 5 ) /I 00 ; "K-OHMS" 

INPUT"TRY ANOTHER VALUE FOR C (YES/NO) ";Z$ ..„ , ,. „.. 



<!i 



6 



uii)» i-ij'^h 



*ri1 -r-ji^^i^ 



THEN R =";INT(R1*100+.5)/100;"K-OHMS" 
Z$ 



r^ 



t 



.c^,-jj' 



INT (R2 * 1 0+ . 5 ) / 1 ; " K-OHMS " 

';Z$ 



s*^ 



z$ 



THEN RB =";IN.T(R4*100 + .5)/100;"K-OHMS'!5 



■n 



■!.ii ..f- 






^:^ 



Fig. 6-1. Listing 



Active Filter Design 



89 



161 IF Z$="YES" THEN 155 ELSE 162 

162 D=VF( (TY-1 )*22+8) 

163 INPUT"RA IN K-OHMS " ; R3 :R4=R3* (2-D) 

164 PRINT" THEN RB =" ; INT (R4* 1 00 + . 5) /I 00 ; "K-OHI 

165 INPUT"TRY ANOTHER VALUE FOR RA [YES/NO) ";Z$ 

166 IF Z$="YES" THEN 163 ELSE 167 

167 CLS:PRINT"2ND SECTION (2ND ORDER):" 



-OHMS" 



170 PRINT: INPUT"C IN UF 

171 K2=VF(((TY-1)*22)+9) 

172 IF FR=1 THEN 174 ELSE 173 

173 F2=FC/K2:GOT017 5 

174 F2=FC*K2 

175 R2=1000/(6.28*F2*C2) :PRINT" THEN R =" ? INT (R2*1 00+. 5)/1 00; "K-ORMS" 

176 INPUT"TRY ANOTHER VALUE FOR C (YES/NO) ";Z$ 

177 IF 2$= "YES" THEN 170 ELSE 178 

178 D2=VF( (TY-1) *22+10) 

179 INPUT"RA IN K-OHMS " ;R5 :R6=R5* (2-D2) 

180 PRINT" THEN RB =" ; INT (R6* 1 00+. 5 ) /I 00 ; "K-OHt 

181 INPUT"TRY ANOTHER VALUE FOR RA (YES/NO) ";Z$ 

182 IF Z$="YES" THEN 179 ELSE 297 

183 '5TH ORDER DESIGN 

184 CLS: PRINT" 1ST SECTION (1ST ORDER):" 

185 K=VF( ( (TY-1)*22)+n) 

186 PRINT: INPUT"C IN UF ";C1 . . 

187 IF FR=1 THEN 189 ELSE 188 ■- ^' " 

188 F1=FC/K:GOTO190 

189 F1=FC*K 

190 R1=1000/(6.28*F1*C1) :PRINT" THEN R ="; INT (R1 *1 00+. 5)/1 00; "K-OHMS" 

191 PRINT: INPUT"TRY ANOTHER VALUE FOR C (YES/NO) ";Z$ 

192 IF Z$="YES" THEN 1B6 ELSE 193 

193 CLS:PRINT"2ND SECTION (2ND ORDER): 

194 IF TY=2 THEN 195 ELSE 196 

195 R2=R1 :C2=C1 :F2=F1 :PRINT:GOTO 204 ■• ./ 

196 PRINT:INPUT"C IN UF ";C2 

197 K2=(((TY-1)*22)+13) ^-^ ., 

198 IF FR=1 THEN 200 ELSE 199 

199 F2=FC/K2:GOTO 201 

200 F2=FC*K2 

201 R2=1000/(6.28*F2*C2) :PRINT" THEN R =" ; INT (R2* 1 00+. .5) /I 00 ; "K- 

202 INPUT"TRY ANOTHER VALUE FOR C (YES/NO) ";Z$ 

203 IF Z$="YES" THEN 196 ELSE 204 

204 D2=VF( (TY-1)*22+14) 

205 INPUT"RA IN K-OHMS " ;R4 :R6=R4* (2-D2) :PRINT" THEN RB =" ; INT (R6* 1 00+. 5) /I 

206 INPUT"TRY ANOTHER VALUE FOR RA (YES/NO) ";Z$ 

207 IF Z$="YES" THEN 205 ELSE 208 

208 CLS:PRINT"3RD SECTION (2ND ORDER):" 

209 IF TY~2 THEN 210 ELSE 211 



' t 



-OHMS" 



,<r 



00; "K-OHMS" 



2 
2 
2,^ X. .^-, .11^1. ^,^ 

214 F3=FC/K3:GOTO 216 

215 F3=FC*K3 

216 R3=1000/(6.28*F3*C3) iPRINT" 

217 INPUT" TRY ANOTHER VALUE FOR 
2 

219 D3=VF( (TY-1)*22+16) 

220 INPUT"RA IN K-OHMS "; R5 :R7=R5* ( 2-D3 ): PRINT" 

221 INPUT"TRY ANOTHER VALUE FOR RA (YES/NO) ";Z$ 

222 IF Z$="YES" THEN 220 ELSE 311 

for LPHP program. 



14 F3=FC/K3:GOTO 216 

15 F3=FC*K3 

16 R3=1000/(6.28*F3*C3) iPRINT" THEN R ="; INT (R3*1 00+. 5)/1 00 ; "K-OHMS" 

17 INPUT"TRY ANOTHER VALUE FOR C (YES/NO) ";Z$ 

18 IF Z$-"YES" THEN 211 ELSE 219 

19 D3=VF( (TY-1)*22+16) 

20 INPtJT"RA IN K-OHMS " i R5 •R7=R5* f 2-D3 1 : PRINT" THEN RB =" ; INT (R7* 1 00 



THEN RB =";INT{R7*100+.5)/100; "K-OHMS" 
Continued on next page. 
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223 '6TH ORDER DESIGN * '' " "'^ -■' '- ■ '"" " ' '' ■ 

224 CLS:PRINT"1ST SECTION (2ND ORDER):" U 

225 K=VF( ((TY-1)*22)+17) 

226 PRINT:INPUT"C IN UF ";C1 "g 

227 IF FR=1 THEN 229 ELSE 228 

228 F1=FC/K:G0T0 230 a 

229 F1=FC*K ^ 

230 R1 = 1000/(6.28*F1*C1) .-PRINT" THEN R =" ; INT (Rl * 1 00+. 5)/1 00; "K-OHMS" 

231 INPUT"TRY ANOTHER VALUE FOR C (YES/NO) ";Z$ 

232 IF Z$="YES" THEN 226 ELSE 233 

233 D=VF ( (TY-1) *22+18) "'' ii*<-- 

234 INPUT"RA IN K-OHMS " ; R4 : R7=R4* { 2-D) '^ "* '' 

235 PRINT" THEN RB =" ; INT {R7* 1 00+. 5 ) /I 00 ; "K-OHMS" ipN 

236 INPUT"TRY ANOTHER VALUE FOR RA (YES/NO) ";Z$ . ._. _. "^ 

237 IF Z$="YES" THEN 234 ELSE 238 ■' -p, 

238 CLS:PRINT"2ND SECTION (2ND ORDER):" ^ 

239 IF TY=2 THEN 240 ELSE 241 

240 R2=R1 :C2=C1 :F2=F1 :PRINT:GOTO 249 ' §5 

241 PRINT:INPUT"C IN UF ";C2 "^ 

242 K2=VF( ( (TY-1) *22)+19} ^ 

243 IF FR=1 THEN 245 ELSE 244 "^ 

244 F2=FC/K2:GOTO 246 n 

245 F2=FC*K2 ^ 

246 R2=1000/(6.28*F2*C2) :PRINT" THEN R =" ; INT(R2*100+. 5) /I 00; "K-OHMS" __ 

247 INPUT"TRY ANOTHER VALUE FOR C (YES/NO) ";Z$ ^ 

248 IF 2$="YES" THEN 241 ELSE 249 

249 D2=VP( {TY-1)*22+20) g 

250 INPUT"RA IN K-OHMS " ;R5 :R8=R5* (2-D2 ) ^ 

251 PRINT" THEN RB =";INT(R8*100+.5)/100;"K-OHMS" Bbi 

252 INPUT"TRY ANOTHER VALUE FOR RA (YES/NO) ";Z$ ^ 
25'3 IF Z$="YES" THEN 2 50 ELSE 254 

254 CLS:PRINT"3RD SECTION (2ND ORDER):" S 

255 IF TY=2 THEN 256 ELSE 257 

256 F3=F1 :R3=R1 :C3=C1 :PRINT:GOTO 265 g 

257 PRINT: INPUT"C IN UF ";C3 , 

258 K3=VF(( (TY-1)*22)+21) ^ 

259 IF FR=1 THEN 261 ELSE 260 ' 

260 F3=FC/K3:GOTO 262 ^'■' '"•■''- 

261 F3=FC*K3 

262 R3=1000/(6.28*F3*C3) iPRINT" THEN R =" ; INT (R3* 100+. 5) /I 00 ; "K-OHMS" 

263 INPUT"TRY ANOTHER VALUE FOR C (YES/NO) ";Z$ 

264 IF Z$="YES" THEN 257 ELSE 265 

265 D3=VF( (TY-D *22+22) 

266 INPUT"RA IN K-OHMS " ; R6 ; R9=R6* (2-D3 ) * 

267 PRINT" THEN RB =" ; INT [R9* 1 00+ . 5) /I 00 ; "K-OHMS" 

268 INPUT"TRY ANOTHER VALUE FOR RA (YES/NO) ";Z$ 

269 IF Z$="YES" THEN 266 ELSE 325 

270 CLS:PRINT"DESIGN SUMMARY: 2ND ORDER ";F$(TY);" FILTER" 

271 PRINT"C (UF) " ,C 

272 PRINT"R (K-OHMS) ",INT(R*100+.5)/l00 

273 PRINT"RA (K-OHMS) " , INT (RA*1 00+. 5) /I 00 

274 PRINT"RB (K-OHMS) " , INT (RB*1 00+. 5) /I 00 ^ 

275 PRINT: PRINT"SELECT STANDARD VALUES FOR:" '•' ^ " 

276 INPUT"C (IN UF) ";C '" 

277 INPUT"R (IN K-OHMS) ";R 

278 INPUT"RA (IN K-OHMS) " ; RA 

279 INPUT"RB (IN K-OHMS) " ; RB 

280 G=1+(RB/RA) :DB=20*LOG(G)/LOG(10) 

281 PRINT"PASSBAND GAIN FIXED AT " ; INT (DB* 1 00+ . 5) /I 00 ; "DB" 

282 GOTO 363 

Fig. 6-1 (cont). Listing 
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283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 



:.v. 



CLS:PRINT"DESIGN SUMMARY: 3RD ORDER ";F$(TY);" FILTER" 

PRINT:PRINT" "/'1ST SECTION" ," 2ND SECTION" i 

PRINT"C (UF) ",C1 ,C2 

PRINT"R (K-OHMS)",INT(R1*100+.5)/100,INT(R2*100+,5)/100 

PRINT"RA (K-OHMS) ", , INT (R3*1 00+. 5 ) /I 00 

PRINT "RB (K-OHMS) " , , INT (R4*1 00 + . 5 ) /I 00 

PRINT:PRINT"INPUT STANDARD VALUES FOR:" , - 

INPUT"C (IN UF) "rCI ,C2 

INPUT" R (IN K-OHMS) ";R1 ,R2 .■(;.<-.-: ; . ! ,• ' ' ,-^:, ^. --■-r 

INPUT" RA (IN K-OflMS) " ; R3 .' i' . . , ■' ti- ' ^ ^ '■ ■ '. r ' r -. ■" " "- 

INPUT"RB (IN K-OHMS) ";R4 ■ - ^ ,. -r\ -> •_ ■.^;v. .( 

G=1+(R4/R3) :DB=20*LOG(G)/LOG(10) 

PRINT"PASSBAND GAIN FIXED AT " ; INT (DB* 1 00+ . 5 ) /I 00 ; "DB" 

GOTO 363 

CLS:PRINT"DESIGN SUMMARY: 4TH ORDER ";F$(TY);" FILTER" 

PRINT:PRINT" ","1ST SECTION" , "2ND SECTION" 

PRINT"C (UF) ",C1,C2 

PRINT"R (K-OHMS) " , INT (R1 * 1 00+ . 5) /I 00 , INT (R2* 1 00+. 5 ) /I 00 

PRINT"RA (K-OHMS) " , INT (R3* 1 00 + . 5 ) /I 00 , INT (R5* 1 00+ . 5 ) /I 00 

PRINT"RB (K-OHMS) " , INT (R4 * 1 00 + . 5 ) /I 00 , INT (R6* 1 00+ . 5 ) /I 00 

PRINT:PRINT"SELECT STANDARD VALUES FOR:" 

INPUT"C (IN UF) ";C1,C2 

INPUT"R (IN K-OHMS) ";Rl,R2 

INPUT"RA (IN K-OHMS) " ; R3 , R4 

INPUT"RB (IN K-OHMS) ";R5,R6 

G=(1+(R5/R3))*(1+(R6/R4) ) :DB=20*LOG (G) /LOG ( 1 0) 

PRINT"PASSBAND GAIN FIXED AT " ; INT (DB* 1 00+. 5 ) /I 00 ; "DB" • 

GOTO 3 63 

CLS: PRINT "DESIGN SUMMARY: 5TH ORDER ";F$(TY);" FILTER" 

PRINTiPRINT" "/'1ST SECTION" ," 2ND SECTION" , "3RD SECTION" 

PRINT"C (UF) ",C1 ,C2,C3 

PRINT"R (K-OHMS) " , INT (R1 * 1 00 + . 5 ) /I 00 , INT (R2* 1 00+ . 5) /I GO , INT (R3* 1 00+ . 5 ) /I 00 

PRINT"RA (K-OHMS)", , INT (R4* 1 00+ . 5 ) /I 00 , INT (R5* 1 00+. 5) /I 00 

PRINT"RB (K-OHMS) ", , INT (R6* 1 00+ . 5) /I 00 , INT (R7 *1 00+ . 5) /I 00 

PRINT:PRIKT"SELECT STANDARD VALUES FOR:" 

INPUT"C (IN UF) ";C1,C2,C3 

INPUT"R (INK-OHMS) ";R1,R2,R3 

INPUT"RA (IN K-OHMS) " ; R4 , R5 -ir^..' ^^ 

INPUT"RB (IN K-OHMS) " ; R6 , R7 

G=(1+(R6/R4) ) * (1+(R7/R5) ) :DB=20*LOG (G) /LOG ( 1 ) 

PRINT"PASSBAND GAIN FIXED AT " ; INT (DB* 1 00+ . 5 ) /I 00 ; "DB" 

GOTO 363 

CLS:PRINT"DESIGN SUMMARY: 6TH ORDER ";F$(TY);" FILTER" 

PRINT:PRINT" ","1ST SECTION" , "2ND SECTION" , "3RD SECTION" 

PRINT"C (UF) ",C1,C2,C3 

PRINT"R (K-OHMS) " , INT (R1 * 1 00+, 5) /I 00 , INT (R2*1 00 + . 5 ) /I 00 , INT ( 

PRINT"RA (K-OHMS)",INT(R4*100+.5)/100,INT(R5*100+.5)/100,INT 

PRINT"RB (K-OHMS) ", INT (R7* 1 00+. 5) /I 00, INT (R8*1 00+. 5) /I 00, INT 

PRINT :PRINT"SELECT STANDARD VALUES FOR:" -c -. r ■ 

INPUT"C (IN UF) ";C1,C2,C3 

INPUT"R (IN K-OHMS) ";R1,R2,R3 '" '' 

INPUT"RA (IN K-OHMS) ";R4,R5,R6 

INPUT"RB (IN K-OHMS) ";R7,R8,R9 ; - 

G= ( 1 + (R7/R4 ) ) * ( 1 + (R8/R5) ) * ( 1 + (R9/R6 ) ) : DB=20*LOG (G) /LOG (10) 

PRINT"PASSBAND GAIN FIXED AT " ; INT (DB* 1 00+. 5) /I CO ; "DB" 

GOTO 363 

'MENU SELECTION 

CLS: PRINT, "LOW-PASS AND HIGH-PASS FILTER DESIGN" 

PRINT :PRINT"SELECT TYPE OF FILTER RESPONSE:" 

PRINT" 1 . BESSEL" ' ' ' 

PRINT" 2. BUTTERWORTH" 



* .■ 



L -ff lift 



:r3* 

(R6 
(R9 



100+. 
*100+ 
*100 + 



5)/100 

.5)/100 

.5)/100 



.!^,fti- 



7.Ui 



for LPHP program. 
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Continued on next page. 
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344 PRINT" 3. 1-DB CHEBYSHEV" 

345 PRINT" 4. 2-DB CHEBYSHEV" 

346 PRINT" 5. 3-DB CHEBYSHEV" 

347 PRINT: INPUTTY 

348 IF TY>5 THEN 340 

349 F$(1)="BESSEL":F$(2)="BUTTERW0RTH" 

350 F$C4) = "2-DB CHEBYRHEV":F$ (5)="3-DB 

351 GOTO 103 

352 'DESIGN PARAMETERS 

353 DATA 1.274,1.732,1.328,0,1.454,1,4 

354 DATA 1.613,1.775,1.819,1.091,1.609 

355 DATA 1,1.414,1,0,1,1,1,1.848,1,0.7 

356 DATA 1,1.618,1,0.618,1,1.932,1,1.4 

357 DATA 0.863,1.045,0.452,0,0.911,0.4 

358 DATA 0.634,0.714,0.961,0.181,0.347 

359 DATA 0.852,0.895,0.322,0,0.913,0.4 

360 DATA 0.624,0.578,0.964,0.142,0.312 

361 DATA 0.841,0.767,0.299,0,0.916,0.3 

362 DATA 0.614,0.468,0.967,0.113,0.298 
3 63 END 



flo'l: 






:F${3)="1-DB CHEBYSHEV" 
CHEBYSHEV" 



47,1 .436,1 .916,1 .610,1 .241 , 

,1.959,1 .694,1.636,1.910,0. 

65,1 ,0 

14, 1 ,0.518 

96, 0.502,1. 275, 0.943, 0.281, 

,1.314, 0.733, 0.455, 0,9 77,0. 

12, 0.466,1. 088, 0.946, 0,234, 

,1. 121, 0.7 27, 0.363, 0.976,0. 

26,0.443,0.929,0.9 50,0. 179, 

,0.958,0.722,0.289,0.975,0. 



B 



1 .557,0 
977 



0.280,0 

125 

0.223,0 

0989 

0. 178,0 

0782 



fiS 



Fig. 6-1 (cont). Listing for LPHP program. 
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INPUT D WiA\-*-WWV— ♦ 





Fig. 6-2. Second-order low-pass filter. 



INPUT o )\ 




Fig. 6-4. Third-order low-pass filter. 



: M^.' ■_ ;iS- 




Fig. 6-3. Second-order high-pass filter. 



Pig. 6-5. Third-order high-pass filter. 
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Fig. 6-6. Fourth-order 
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low-pass filter. 
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INPUT 



Fig. 6-7. Fourth-order 
high- pass filter. 



INPUT 



QUTPUT Pig, 6-8. Fifth-order low-pass filter. 



INPUT o 




Fig. 6-10. Sixth-order low-pass filter. 



IKPUT o )\- 
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-^ OUTPUT 



Fig. 6-11. Sixth-order high-pass filter. 
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LOW-PASS AND HIGH-PASS FILTER DESIGN 



SELECT TYPE OF FILTER RESPONSE: 

1 . BESSEL 

2. BUTTERWORTH 

3. 1-DB CHEBYSHEV 

4. 2-DB, CHEBYSHEV 

5. 3-DB CHEBYSHEV 



1-DB CHEBYSHEV FILTER DESIGN 



'* ■ 



tk--»-H- — ■ 



1^ 



m 
1 



SELECT: 

LOW- PASS (1) OR HIGH-PASS (2) ? 2 . . C 

ORDER OF FILTER ? 3 

CUTOFF FREQUENCY IN HZ ? 3 50 

1ST SECTION {1ST ORDER): 

C IN UF ? .01 . -..I.— 

THEN R = 20.56 K-OHMS 
TRY ANOTHER VALUE FOR C (YES/NO) ? NO | -.- y »~ 

2ND SECTION (2ND ORDER): '«* ^ 

- ■ -"^^ i 

C IN UF ? .022 

THEN R = 18.84 K-OHMS "* ■ 

TRY ANOTHER VALUE FOR C (YES/NO) ? YES 

C IN UF ? .033 

THEN R = 12.56 K-OHMS 
TRY ANOTHER VALUE FOR C (YES/NO) ? NO — ^f- 
RA IN K-OHMS ? 10 " . 

THEN RB = 15.04 K-OHMS -.^,,-vs-- 

TRY ANOTHER VALUE FOR RA (YES/NO) ? NO 



DESIGN SUMMARY: 3RD ORDER 1-DB CHEBYSHEV FILTER 



— — '.V 



-!• -- -(- 






- 1 J I 



^ 



..^- 





1ST SECTION 


2ND SECTION 


C (UP) 


.01 


.033 


R (K-OHMS) 


20.56 


12.56 


RA (K-OHMS) 




10 


RB (K-OHMS) 




15.04 



INPUT STANDARD VALUES FOR: 

C (IN UF)? .01 ,.033 

R (IN K-OHMS)? 20.5,12.7 , 

RA (IN K-OHMS)? 10 - , 

RB (IN K-OHMS)? 15 

PASSBAND GAIN FIXED AT 7.96 DB 



READY 
> 



•'-* vr 



.. t 



1 

T 






T 



If - -O I-** 



Fig. 6-12, Output results for Example 6-1. 
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Fig. 6-13. Final circuit for Example fi-1. 
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LOW-PASS AND HIGH-PASS FILTER DESIGN 



SELECT TYPE OF FILTER RESPONSE: 

1 . BESSEL 

2. BUTTERWORTH 

3. 1-DB CHEBYSHEV 

4. 2-DB CHEBYSHEV 

5. 3-DB CHEBYSHEV 

? 2 

BUTTERWORTH FILTER DESIGN 

SELECT: 



Fig. 6-14. Results for Example 6-2. 



LOW-PASS (1) OR HIGH-PASS (2) ? 1 

ORDER OF FILTER ? 6 

CUTOFF FREQUENCY IN HZ ? 3000 

1ST SECTION (2ND ORDER): ^ 

C IN UF ? .0022 '. __l 

THEN R = 24.13 K-OHMS ' ' 

TRY ANOTHER VALUE FOR C (YES/NO) ? NO 

RA IN K-OHMS ? 100 

THEN RB = 6.8 K-OHMS 

TRY ANOTHER VALUE FOR RA (YES/NO) ? NO 



2ND SECTION (2ND ORDER) : 



^•> 



RA IN K-OHMS ? 18 

THEN RB = 10.55 K-OHMS 
TRY ANOTHER VALUE FOR RA (YES/NO) ? NO 

3RD SECTION {@2ND ORDER): •' 

RA IN K-OHMS ? 12 

THEN RB = 17.78 K-OHMS 
TRY ANOTHER VALUE FOR RA (YES/NO) ? NO 

DESIGN SUMMARY: 6TH ORDER BUTTERWORTH FILTER 



C (UP) 
R (K-OHMS) 
RA (K-OHMS) 
RB (K-OHMS) 



1ST SECTION 
2.2E-03 
24.13 
100 
6.8 



2ND SECTION 
2.2E-03 
24.13 
18 
10.55 



3RD SECTION 
2.2E-03 
24.13 
12 
17.78 



SELECT STANDARD VALUES FOR: 

C (IN UF) ? .0022, .0022, .0022 if3*.lr!i, 

R (IN K-OHMS) ? 24,24,24 

RA (IN K-OHMS) ? 100,18,12 

RB (IN K-OHMS) ? 6.8,10.5,17.8 

PASSBAND GAIN FIXED AT 12.46 DB 



I \ 



READY 
> 
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.0022uF 



.0022uF 



•aazSxF 



24k 24k 

INPUT o WW. • — VWW 



■ 0022 



I-;; 




O OUTPUT 



^ 

^ 



Fig. 6-15. Pinal circuit for Example 6-2. 



au-L .. 



FILTER ^ ,,,,. 

INPUT ° WAV 




LOg-PASS 
OUTPUT 



.J Ui ">; ^ 



Fig. 6-16. Basic state-variable filter. 



For the low-pass and high-pass outputs, the pass- 
band gain is unity. For the bandpass output, the 
center frequency gain will be equal to the value 
picked for the Q of the filter. 

As this type of circuit gives a second-order re- 
sponse for both the low-pass and high-pass out- 
puts, it will not be possible to obtain optimum per- 
formance with all three outputs simultaneously. 
For either a low-pass or a high-pass Butterworth 
response, Q must be equal to 0.707 (damping 
equals 1.414, or 1/Q). Consequently, the bandpass 
response suffers terribly ! Even for a second-order 
3-dB Chebyshev filter, Q must be 1.3, which is 
not much better. We should then design either for 
a second-order Butterworth low-pass/high-pass 
response (Q = 0.707), or for a high-Q bandpass 
response. 

An additional feature of the basic state-variable 
filter is an additional operational amplifier stage, 
as shown in Fig. 6-17, to simultaneously add the 
low-pass and high-pass filter outputs to create a 
notch or band reject filter. 




FROM LOW-PASS OUTPUT 
FROM HIGH-PASS OUTPUT 



Fig. 6-17. Creating a notch filter with an additional op-amp 
Bumming amplifier. 

Shown in Fig. 6-18 is the program listing (SV- 
FILTER) for designing state-variable filters, 
which requires the following initial information: 

1. Type of response (low, high, bandpass, or 
notch) 

2. Cutoff, center, or notch frequency 

3. Damping factor, or Q 

4. Standard capacitor value 

From this information, the remaining component 
values are determined, after which we are asked 
to enter standard component values that are clos- 
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100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 



PRINT "OUTPUT 
PRINT" 1 , 
PRINT" 2, 
PRINT" 3. 
PRINT" 4. 



FC 



ANOTHER 
DB) " 
";C:P=6, 

K-OHMS" 



' -.i-'J 



VALUE": GOTO 116 



28319*FC 



'STATE-VARIABLE FILTER DESIGN (SVFILTER) 

CLEAR:CLS:PRINTTAB{1 8) "STATE-VARIABLE FILTER DESIGN" 

PRINT ' - 

RESPONSES AVAILABLE:" 

2ND ORDER LOW- PASS" 

2ND ORDER HIGH-PASS" 

1-POLE BANDPASS" 

1-POLE NOTCH*' 
PRINT@478, "SELECT # " : Z9=490 :GOSUB237 

IF Z9$<>"1" AND Z9$<>"2" AND Z9$<>"3" AND Z9$<>"4" THEN 108 
IF Z9$="1" THEN 1 14 
IF Z9$="2" THEN 149 
IF Z9$="3" THEN 184 
IF Z9$="4" THEN 184 

CLS:PRINT:PRINT"2ND ORDER LOW-PASS STATE-VARIABLE FILTER" 
PRINT: INPUT"ENTER CUTOFF FREQUENCY IN HZ 
INPUT"ENTER DAMPING FACTOR ";D 
IF D>=3 THEN 118 ELSE 119 

PRINT"DAMPING FACTOR TOO LARGE C>3). PICK 
PRINT: PRINT"PASSBAND GAIN FIXED AT 1 . (0 
PRINT: INPUT"ENTER CAPACITOR VALUE (IN UF ) 
R=1000/(P*C) :E=(3/D)-1 

PRINT" THEN R = " ; INT {R* 1 00+ . 5) /I CO ; " 
INPUT"ENTER VALUE FOR RA " ; RA 

RB=RA/E ■ ■" ■ " 

PRINT" THEN RB = " ; INT (RB* 1 00 + . 5 ) /I 00 ; "K-OHMS" 
PRINT: INPUT"TRY ANOTHER SET OF VALUES (YES/NO) " ; A$ 
IF A$="YES" THEN 120 ELSE 128 

PRINT: PRINT"ENTER STANDARD COMPONENT VALUES FOR:" 
PRINT:INPUT"C (IN UF ) " ; C 

INPUT"R (INK-OHMS) " ; R -■■ - - .., ■ 

INPUT"RA (IN K-OHMS) " ; RA 
INPUT"RB (IN K-OHMS) " ; RB 

PRINT:PRINT"BASED ON ABOVE COMPONENTS CHOSEN:" 
FC=1000/(6.28319*R*C) :D= (3*RB) / (RA+RB) 
PRINT"CUTOFF FREQUENCY = " ; INT (FC* 1 0+. 5) /I ; "HZ " 
PRINT"DAMPING FACTOR = " ; INT (D* 1 000 + . 5 ) /I 000 
PRINT: INPUT"TRY ANOTHER SET OF STANDARD VALUES (YES/NO) 
IF A$="YES" THEN 128 ELSE 139 

CLS:INPUT"AMPLITUDE RESPONSE AT A GIVEN FREQUENCY (YES/NO) 
IF A$="YES" THEN 141 ELSE 148 

INPUT"FREQUENCY IN HZ ";FI .:. ■ ' 

F=FI/FC 

DB=-20*LOG( (Ff4) + ( (D+2-2)*F+2)+1 ) /LOG (10) ■^""' ^-"^ ' '"■" 
DB=DB/2 

PRINT" AMPLITUDE RESPONSE = " ; INT (DB* 1 00 + . 5 ) /I 00 ; " DB" 
PRINT:PRINT"TRY ANOTHER FREQUENCY (YES/NO) ";A$ 
IF A$="YES" THEN 141 ELSE 148 
PRINT"DESIGN COMPLETED" : END 

CLS:PRINT:PRINT"2ND ORDER HIGH-PASS STATE-VARIABLE FILTER" 
PRINT: INPUT"ENTER CUTOFF FREQUENCY IN HZ ";FC 
INPUT"ENTER DAMPING FACTOR ";D 
IF D>=3 THEN 153 ELSE 154 

PRINT"DAMPING FACTOR TOO LARGE (>3). PICK 
PRINT:PRINT"PASSBAND GAIN FIXED AT 1.0 (0 
PRINT: INPUT"ENTER CAPACITOR VALUE IN UF " 
R=1000/(P*C) :E=(3/D)-1 

PRINT" THEN R = " ; INT (R* 1 00+. 5) /I 00 ; " 
INPUT"ENTER VALUE FOR RA (IN K-OHMS) " ; RA ■ ,■- 
RB=RA/E 

PRINT" THEN RB = " ; INT (RB* 1 00+, 5) /I 00 ; "K-OHMS" 
INPUT"TRY ANOTHER SET OF VALUES (YES/NO) ";A$ 

Fig. 6-18. Listing for SVFILTER program. ' - 



ELSE 1 1 






■IT 



hi 



"rA$ 



ANOTHER VALUE": GOTO 151 

DB) " 

C:P=6.28319*FC 

K-OHMS" 



Continued on next page. 
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162 if a$="yes" then 155 else 163 



162 IF A$="YES" THEN 155 ELSE 163 

163 PRINT:PRINT"ENTER STANDARD COMPONENT VALUES FOR:" 

164 PRINT:INPUT"C (IN UF) ";C 

165 INPUT"R {IN K-OHMS) ";R 

166 INPUT"ra IN K-OHMS " ? RA: INPUT"RB IN K-OHMS " ; RB 

167 PRINT:PRINT"BASED ON ABOVE COMPONENTS CHOSEN:" 

168 FC=1C00/(6.28319*R*C) :D= (3*RB)/ (RA+RB) 

169 PRINT"CUTOFF FREQUENCY = " ; INT {FC* 1 0+. 5 ) /I ; "HZ" 

170 PRINT"DAMPING FACTOR = " ; INT {D*1 000+ . 5) / 1 000 ., ., .. „ j^ 

171 INPUT"TRy ANOTHER SET OF VALUES (YES/NO) "?A$ - ■; - » 

172 IF A$="YES" THEN 163 ELSE 173 M 
,173 CLS:INPUT"AMPLITUDE RESPONSE AT A GIVEN FREQUENCY (YES/NO) " ;A$ m 

174 IF A$="YES" THEN 175 ELSE 183 , .", ,,. ..^ >, 

175 INPUT"FREQUENCY IN HZ ";FI ..... ^ 

176 F=FC/FI 

177 DB=-20*LOG( (F+4)+{ (D+2-2) *F+2 ) +1) /LOG ( 1 0) 

178 DB=DB/2 

179 PRINT" AMPLITUDE RESPONSE = " ; INT (DB* 1 00+ . 5 ) /I 00 ; " DB" 

180 INPUT"ADDITIONAL FREQUENCIES ( 1 =YES , 0=NO)"rA 
""' IF A01 AND AOO THEN 180 EI"" 

IF A=1 THEN 175 ELSE 183 



181 IF A01 AND AOO THEN 180 ELSE 182 
182 



183 PRINT"DESIGN COMPLETED" : END 

184 IF Z9$="3" GOTO 185 ELSE 187 



184 IF Z9$="3" GOTO 185 ELSE 187 

185 CLS:PRINT:PRINT"1-P0LE BANDPASS STATE-VARIABLE FILTER" 

186 PRINT: INPUT"ENTER CENTER FREQUENCY IN HZ ";FC:GOTO 189 

187 CLS:PRINT:PRINT"1-P0LE NOTCH STATE-VARIABLE FILTER" 

188 PRINT: INPUT"ENTER NOTCH {NULL) FREQUENCY IN HZ " ; FC 

189 INPUT"3 DB BANDWIDTH IN HZ ";BW:Q=FC/BW 

190 INPUT"ENTER CAPACITOR VALUE IN UF ";C ' -.'.- 

191 P=6.28319*FC ,^ 

192 R=1000/{P*C) 

193 E={3*Q)-1 

194 PRINT" THEN R = " ; INT (R*1 00+. 5) /I 00 ; " K-OHMS" 

195 INPUT"ENTER VALUE FOR RA {IN K-OHMS) " ? RA 

196 RB=RA/E 
PRINT" THEN RB = " ? INT (RB* 1 00 + . 5 ) /I 00 ; "K- 
INPUT"TRY ANOTHER SET OF VALUES (YES/NO) ";A$ 
IF A$="YES" THEN 190 ELSE '200 



199 IF A?="YES" THEN 190 ELSE '200 

200 PRINT :PRINT"ENTER STANDARD COMPONENT VALUES FOR:" 
301 TNPUT"C (m UF) "zC 



196 RB=RA/E 

197 PRINT" THEN RB = " ; INT (RB* 1 00 + . 5 ) /I 00 ; "K-OHMS " 

198 INPUT"TRY ANOTHER S^*^ ^'^ TT,vTrTTrc^ I^t.^ /^ir.\ ».n* 

199 IF A$="YES" THEN 19 

200 PRINT :PRINT"ENTER S 

201 INPUT"C (IN UF) ";C 

202 INPUT"R (IN K-OHMS) "?R 

203 E=(3*Q)-1 

204 INPUT"RA IN K-OHMS " ; RA: INPUT"RB IN K-OHMS";RB -->- - - ' " ■- . ■ . 

205 IF Z9$="3" THEN 206 ELSE 207 

206 PRINT:PRINT"CENTER FREQUENCY GAIN FIXED AT Q ( " ; Q; " ) " :GOTO 208 

207 PRINT"PASSBAND GAIN FIXED AT 1.0 (0 DB) " 

208 FC=1000/(6.28319*R*C) :Q= ( 1+ (RA/RB) )/3:BW=FC/Q 

209 PRINT:PRINT"BASED ON ABOVE COMPONENT VALUES:" 

210 IF T=3 THEN 211 ELSE 212 

211 PRINT: PRINT"CENTER FREQUENCY = " ; FC ; " HZ": GOTO 213 

212 PRINT: PRINT"NOTCH (NULL) FREQUENCY = " ; FC ; " HZ" 

213 PRINT"Q = ";Q 

214 PRINT"3 DB BANDWIDTH = ";BW;" HZ" 

215 IF T=3 THEN 216 ELSE 218 

216 DB=8.68589*LOG(Q) :PRINT"CENTER FREQUENCY GAIN = ";DB;"DB" 



217 GOTO 219 



A 1 I GOTO I I y 

218 PRINT"PASSBAND GAIN = DB" 

219 INPUT"ANOTHER SET OF NOMINAL VALUES (1=YES, 0=NO)";A 

220 IF A=1 THEN 200 ELSE 221 

221 CLS:INPUT"AMPLITUDE RESPONSE AT A GIVEN FREQUENCY { 1 =YES , 0=NO)";A 

222 IF A=1 THEN 223 ELSE 236 



Continued on next page. ^ 

Fig. 6-18 (cont). Listing for SVFILTER program. 
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223 INPUT"INPUT FREQUENCY IN HZ ";FI 

224 F=FI/FC 

225 IF T=3 THEN 226 ELSE 231 

226 DB=8.6859*LOG(Q)-4.34 29*LOG(1+Q+2* ( (F+2- 1 ) /F) +2) 

227 PRINT" AMPLITUDE RESPONSE = ";DB;" DB" 

228 INPUT"ADDITIONAL FREQUENCIES (1=YES, 0=NO) " ;A 

229 IF AOO AND A01 THEN 228 ELSE 230 

230 IF A=l THEN 223 ELSE 236 

231 DB=4.34294*LOG( (1-F+2) +2) -4 . 34294*LOG ( (1-P+2) +2+ (F/Q) +2) 

232 PRINT" AMPLITUDE RESPONSE = ";DB;" DB" 

233 INPUT"ADDITIONAL FREQUENCIES { 1 =YES , 0=NO) ";A 

234 IF AOO AND AOl THEN 233 ELSE 235 

235 IF A=l THEN 223 ELSE 236 

236 PRINT"DESIGN COMPLETED" : END 

237 PRINT@Z9,CHR$ (143) ; :L=1 

238 Z9$=INKEY$ 

239 IFZ9$<>"" THEN PRINT @ Z9," ";:RETURN 

240 L=L+1 

241 IF L<10 THEN 238 

242 PRINT @Z9," "; . -.,-.. 

243 FOR L=1 TO 5:NEXT t .. ' , 

244 GOTO 237 ■ - v'- • • 



BLINKING CURSOR ROUTINE 



Fig. 6-18 (cont). Listing for SYFILTER program. 



est to the ideal values. In addition, we are then 
able to determine the response of the filter at a 
given frequency, based on the standard compo- 
nent values selected. 



-'T.'i^i 



Example 6-3 

Design a second-order high-pass state-variable 
filter having a cutofi" frequency of 350 Hz with 
a Butterworth response (damping equals 1.414). 
Choosing a capacitor value of 0.022 /iF, Fig. 6-19 
shows the resulting output computations, with the 
final circuit shown in Fig. 6-20. 



A BANDPASS FILTER FOR Q 
LESS THAN 10 

For values of Q less than 10, the multiple-feed- 
back circuit of Fig. 6-21 is often used, since it 
uses a minimum of components. Furthermore, the 
design is simplified by making both frequency de- 
termining capacitors equal. Resistors Rl and R3 
determine the center frequency passband gain, 
while the center frequency is set by all three re- 
sistors. The program listing (BNDPASSl) is 
given in Fig. 6-22. 

When executed the program requires the fol- 
lowing initial information: 



1. Design determined by knowing either Q, 
3-dB bandwidth, or the 3-dB frequencies 

2. Standard capacitor value 

3. Center frequency 

4. Center frequency voltage gain 



after which the resistor values are determined. 
In addition, we are then able to determine the 
filter response at any frequency baaed on the 
standard values chosen. The following example il- 
lustrates the BNDPASSl program. 

Example 6-4 

Design a bandpass filter with a center fre- 
quency of 750 Hz, a voltage gain of 1.3 (+2.3 dB) , 
and a Q of 4.2. Using a standard capacitor value 
of 0.01 ju-F, the three resistor values are calculated 
after which we are asked whether or not we want 
to try a different set of values, particularly that 
of the capacitor. If not, we are asked to enter 
standard component values that are closest to 
those calculated by the program. Again, we are 
asked whether or not we want to change the val- 
ues. If not, then we are asked if we want to know 
the frequency response of the filter at a particular 
frequency, based on the component values we 
have just chosen. 

Figs. 6-23 and 6-24 show both the program 
output and the final circuit. 
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2ND ORDER HIGH-PASS STATE-VARIABLE FILTER 

ENTER CUTOFF FREQUENCY IN HZ ? 350 
ENTER DAMPING FACTOR ? 1.414 

PASSBAND GAIN FIXED AT 1 . (0 DB) 

ENTER CAPACITOR VALUE IN UF ? 0.022 

THEN R = 20.67 K-OHMS 
ENTER VALUE FOR RA (IN K-OHMS) ? 27 

THEN RB = 24.07 K-OHMS 
TRY ANOTHER SET OF VALUES (YES/NO) ? NO 



■M 'I; 



^: 



ENTER STANDARD COMPONENT VALUES FOR: 

C (IN UF) ? 0.022 ' ■ -..i^:- .,4' . • " • ' 

R (IN K-OHMS) ? 20 * ' 

RA IN K-OHMS ? 27 ' ; ' 

RB IN K-OHMS ? 24 

BASED ON ABOVE COMPONENTS CHOSEN: 

CUTOFF FREQUENCY = 361.7 HZ 

DAMPING FACTOR = 1.412 

TRY ANOTHER SET OF VALUES (YES/NO) ? NO 

AMPLITUDE RESPONSE AT A GIVEN FREQUENCY (YES/NO)? YES 
FREQUENCY IN HZ ? 500 

AMPLITUDE RESPONSE = -1.04 DB 

ADDITIONAL FREQUENCIES ( 1 =YES , 0=NO) ? 1 " " ^ 
FREQUENCY IN HZ ? 250 ^ JU p' 

AMPLITUDE RESPONSE = -7.3 DB ■; , .-u- 

ADDITIONAL FREQUENCIES ( 1 =YES , 0=NO) ? 1 
FREQUENCY IN HZ ? 100 

AMPLITUDE RESPONSE = -22.36 DB 

ADDITIONAL FREQUENCIES (1=YES, 0=NO) ? 

DESIGN COMPLETED - > . 






ihlM- 



Fig. 6-19. Results for 
Example 6-3. 
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READY 
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Fig. 6-20. Final circuit for 
Example 6-3. 
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Fig. 6-21. Bandpass filter for Q less than 10. 
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INPUT O WMr 




100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 



' BANDPASS FILTER DESIGN FOR Q < 10 (BNDPASS1) 

CLEAR:CLS:PRINTTAB(12)"BANDPASS FILTER DESIGN FOR Q LESS THAN 10" 
PRINT 

G$="####.##" . ... 

PRINT"DESIGN BASED ON KNOWING: 1 
PRINT" 2 

PRINT" 3 

PRINTia473 , "SELECT # " : 29=483 :G0SUB1 74 
IF Z9$<>"1" AND Z9$<>"2" AND Z-$<>"3" 

THEN 112 



'•if 



3-DB BANDWIDTH" 

UPPER & LOWER 3-DB FREQUENCIES" 



THEN 107 ELSE 109 



IN HZ 
";FH 



";FL 



PRINT@483,Z9$:IF Z9$="1 

IF Z9$="2" THEN 116 

IF Z9$="3" THEN 118 

PRINT: INPUT"Q ";Q 

IF Q>=10 THEN 114 ELSE 115 ' "^ '" ' " " ■^•'' -.-i - f'- 

PRINT"Q MUST BE LESS THAN 10.": GOTO 112 ^ ■■ - 

GOTO 128 • ♦■ ,i; ^ 

PRINT: INPUT"3-DB BANDWIDTH IN HZ " ; BW , ■ . 

GOTO 128 

PRINT: INPUT"LOWER 3-DB FREQUENCY 

INPUT"UPPER 3-DB FREQUENCY IN HZ 

FO=SQR(FH*FL) 

PRINT" CENTER FREQUENCY =" ; INT (FO* 1 0+. 5 ) /I ; "HZ" ' ':•■ 

BW=FH-FL : Q=FO/BW 

PRINT" 3-DB BANDWIDTH =" ; INT {BW* 1 0+. 5) / 1 ; "HZ" 

PRINT" Q =";INT{Q*10+.5)/10 

IF Q>=10 THEN 126 ELSE 127 

PRINT"Q MUST BE LESS THAN 10. INCREASE BANDWIDTH. ": PRINT: GOTO 118 

GOTO 128 

PRINT: INPUT"HIT <ENTER> TO CONTINUE ";Z 

CLS:INPUT"STANDARD CAPACITOR VALUE IN OF ";C 

IF Z9$="1" THEN 133 ELSE 131 

IF Z9$="3" THEN 136 ELSE 132 , ^, 

IF Z9$="2" THEN 133 ■ - . - ■ ^ 

INPUT"CENTER FREQENCY IN HZ ";F0 . ■, 

IF Z9$="1" THEN 136 ELSE 135 

Q=FO/BW '. • ., - ,< 

INPUT"CENTER FREQUENCY VOLTAGE GAIN ";G 

IF Q>=SQR(G/2) THEN 140 

PRINT"NO SOLUTION POSSIBLE FOR STATED Q AND GAIN - TRY A" 

PRINT"LOWER CENTER FREQUENCY GAIN":GOTO 136 

R1=1000*Q/{G*6.28*FO*C) :R3=2000*Q/ (6 . 28*FO*C) ^r ■ 

R2=Q/( (2* (Q+2)-G) *6.28*FO*C) 

R2=R2*1000 

R1=INT(Rl*100+.5)/100:R2=INT(R2*100+.5)/100 - 

R3 = INT(R3*100+.5)/100 ■. f 

PRINT:PRINT"THEN: ":PR1NT" R1 " , " R2"," R3" 

PRINT R1 ,R2,R3/'K-OHMS" - - -^ ,-■ 

PRINT: INPUT"TRY ANOTHER SET OF VALUES (YES/NO) ";X$ 

IF X$="YES" THEN 129 ELSE 149 



'^.• 



Fig. 6-22. Listing for BNDPASSl program. 



Continued on next page. 



102 



Active Filter Design 



149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 



PRINT:PRINT"ENTER STANDARD COMPONENT VALUES FOR:" 

PRINT: INPUT"R1 (IN K-OHMS) ";R1 

INPUT"R2 (IN K-OHMS) " ; R2 

INPUT"R3 (IN K-OHMS) " ; R3 

INPUT"C (IN UF) ";C -'" ■ -lifrj -^ ..-i.Jf -. \ 

PRINT:PRINT:PRINT"BASED ON ABOVE STANDARD COMPONENTS CHOSEN:" 

R3=1E3*R3:R2=1E3*R2:R1=1E3*R1 : C=1E-6*C: Y=1/ (R3*C+2 ) 

R1=1/R1 :R2=1/R2:FO=SQRCY* (R1+R2) ) :FO=FO/6.28 

G=R3*Rl/2 

Q=G*6.28*FO*C/R1 

PRINT"CENTER FREQUENCY =" ; INT (FO* 1 . + , 5) /I j "HZ" 

PRINT"CENTER FREQUENCY VOLTAGE GAIN =" ; INT (G* 1 00+. 5 ) /I 00 

PRINT"Q =";INT(Q*1 00 + . 5)/1 00, "BANDWIDTH = " ; INT ( (FO/Q) * 1 00+ . 5) /I 00 ; "HZ " 

PRINT: INPUT"TRY ANOTHER SET OF STANDARD VALUES (YES/NO) ";X$ 

IF X$="YES" THEN 150 ELSE 164 

CLS:INPUT"DO YOU WISH TO KNOW THE AMPLITUDE RESPONSE (YES/NO) ";X$ 

IF X$="YES" THEN 166 ELSE 172 

INPUT"ENTER INPUT FREQUENCY IN HZ ";FI 

F=FI/FO:FX=( ( (F+2)-1 )/F) f 2 : V=1+ CQt2) *FX 

DB=(20*LOG (G) /LOG (10) ) -1 a*LOG (V) /LOG ( 1 ) 

PRINT" AMPLITUDE RESPONSE = "- : PRINTUSING G$ ; DB; : PRINT" DB" 

PRINT: INPUT"TRY ANOTHER FREQUENCY (YES/NO) ";X$ 

IF X$="YES" THEN 166 ELSE 172 

PRINT"DESIGN COMPLETED" 

END 



PRINT@Z9,CHR$ (143) ; :L=1 : 

Z9$=INKEY$ 

IF29$<>"" THEN PRINT Z9 , 

L=L+1 

IF L<10 THEN 175 

PRINTiaz9/' "; 

FOR L=1 TO 5: NEXT 

GOTO 174 
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; : RETURN 



c'i 



/a 



■f/i~r. 
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Fig. 6-22 (cont). Listing for BNDPASSl program. 



BANDPASS FILTER DESIGN FOR Q LESS THAN 10 



DESIGN BASED ON KNOWING: 1 

2 
. - 3 



3-DB BANDWIDTH 

UPPER & LOWER 3-DB FREQUENCIES 



SELECT # ? 1 



Q ? 4.2 



HIT <ENTER> TO CONTINUE ? 

STANDARD CAPACITOR VALUE IN UF 7 0.01 

CENTER FREQENCY IN HZ ? 750 

CENTER FREQUENCY VOLTAGE GAIN ? 1 . 3 



THEN: 
R1 
68.59 



R2 
2.62 



R3 
178.34 



-!^e*' 



K-OHMS 



TRY ANOTHER SET OF VALUES (YES/NO) ? NO 

ENTER STANDARD COMPONENT VALUES FOR: 



Fig. 6-23. Results for Example 6-4. 
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R1 (IN K-OHMS) ? 68.1 . ,-• ■ . ■•.' -^z-. -r. ; - . ,- ■ ■. 

R2 (IN K-OHMS) ? 2.61 ■ t-t i 

R3 (IN K-OHMS) ? 178 
C (IN UF) ? 0.01 

BASED ON ABOVE STANDARD COMPONENTS CHOSEN: 

CENTER FREQUENCY = 752.8 HZ 

CENTER FREQUENCY VOLTAGE GAIN = 1.31 

Q = 4.21 BANDWIDTH = 17 8.92 H2 



l'>' 


■: HI ajiTJ r' .:?.'■■'■ 


■.:^ .': ■•. 


'' 00' 


1~ 


.I'j'-' * i'" ' :" ! ■• '1? •" ;■", 




f '■ 1 

.0' 




■ a:- n--;../ ■: ;<,-■' 




. coi 



''^■- f . 
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TRY ANOTHER SET OF STANDARD VALUES (YES/NO) ? NO 

DO YOU WISH TO KNOW THE AMPLITUDE RESPONSE (YES/NO) ? YES 

ENTER INPUT FREQUENCY IN HZ ? 400 

AMPLITUDE RESPONSE = -12.90 DB "t- 



TRY ANOTHER FREQUENCY (YES/NO) ? YES 
ENTER INPUT FREQUENCY IN HZ ? 1125 
AMPLITUDE RESPONSE = -8.8 3 DB 

TRY ANOTHER FREQUENCY (YES/NO) ? NO 

DESIGN COMPLETED 

READY -, 

> 



» L* f 



r. f- r , 



< 1 



Fig. 6-23 (cont). Results for Example 6-4. 
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Fig. 6-24. Final circuit for Exampie 6-4. 



A BANDPASS FILTER FOR Q 
LESS THAN 50 

The simple multiple-feedback circuit of Fig. 6-21 
is not stable for values of Q greater than 10. How- 
ever, relatively simple bandpass filters having Q 
values between 10 and 50 are possible with the 



addition of a second op-amp and three resistors, 
as shown in Fig. 6-25. Using the BNDPASS2 pro- 
gram of Fig. 6-26, the design of the filter is sim- 
plified by making both capacitors equal, as before. 
In addition, because of the nature of the filter 
design, the center frequency voltage gain must be 
greater than: 

G> (Q)i^2 

so that high gain accompanies high Q. 

Example 6-5 

Design a bandpass filter having a 3-dB band- 
width of 50 Hz at a center frequency of 1000 Hz 
(so that Q = 20). 

Using a standard value of 0.018 /aF and a cen- 
ter frequency voltage gain of 5, the output results 
are shown in Fig. 6-27. The final circuit is shown 
in Fig. 6-28. 



Fig. 6-25. Bandpass filter for Q 
less than 50. 
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100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 



-T 



':GOTO 108 



' BANDPASS FILTER DESIGN FOR Q < 

CLSiPRINTTAB (12) "BANDPASS FILTER 

PRINT 

PRINT"DESIGN BASED ON KNOWING: 1 

PRINT" 2 

PRINT" 3 

INPUT"CHOICE";A 

ON A GOTO 108 ,112 ,114 

INPUT^Q ";Q 

IF Q>=50 THEN 110 ELSE 111 

PRINT"Q MUST BE LESS THAN 50. 

GOTO 120 

INPUT"3-DB BANDWIDTH IN HZ " ^BW 

GOTO 120 

INPUT"LOWER 3-DB FREQUENCY IN HZ ";FL 

INPUT"UPPER 3-DB FREQUENCY IN HZ " ; FH 

FO=SQR{FH*FL) :PRINT" 

BW=FH-FL:Q=FO/BW 

PRINT" 3-DB BANDWIDTH =" ; INT {BW* 1 + . 5) /I ; "HZ" 

PRINT" Q=";INT(Q*100+.5)/100 

PRINT: INPUT"HIT <ENTER> TO CONTINUE ";Z 

CLS:INPUT"STANDARD CAPACITOR VALUE IN UF ";C • 

IF A=1 THEN 125 ELSE 123 



r u. 



50 (BNDPASS2) 

DESIGN FOR Q LESS THAN 50" 



."iMii:" -■ 



3-DB BANDWIDTH" 

UPPER & LOWER 3-DB FREQUENCIES" VC ^. A 



^^ . . 



CENTER FREQUENCY =" ; INT (FO* 1 + . 5 ) /I ; "HZ" 



i.t^'^-'':' I'^v^i Kna 



ELSE 



3 
124 



IF A=3 THEN 128 

.^, IF A=2 THEN 125 ...._,, ^- 

125 INPUT^CENTER FREQUENCY IN HZ "?F0 

126 IF A=1 THEN 128 ELSE 127 
Q=FO/BW 

INPUT"CENTER FREQUENCY VOLTAGE GAIN ";G 
IF G>SQR(Q) THEN 131 

PRINT:PRINTTAB(10) "GAIN TOO LOW. TRY ANOTHER VALUE. ":GQTO 128 
K=G/SQR{Q) :R1=Q*1000/(6.28*FO*C) v.-- 

R2=Rl*K*Q/( (2*Q)-1) . ' * 

R6=K*R1 ' " " 

DM={Q+2)-1-{2/K)+1/(K*Q) :R3=Rl/DM 



127 
128 
129 
130 
131 
132 
133 
134 
135 



e: 



iirtti 



-■V 




J(J ' 



A. 



139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 



PRINT R1 ,R2,R3/'K-OHMS 

PRINT" R4"," R5"," R6" 

PRINT R4,R5,R6,"K-OHMS" 

PRINT 

INPUT"TRY ANOTHER SET OF VALUES 

IF X$="YES" THEN 121 ELSE 145 

PRINT:PRINT"ENTER STANDARD 



K.I Hi/m. ifttiri "J-f w"^ 



INPUT"R1 
INPUT"R2 

INPUT"R3 
INPUT"R6 
INPUT "C 



(IN K-OHMS) 
(IN K-OHMS) 
(IN K-OHMS) 
(IN K-OHMS) 
:iN UF) ";C 
ON 



(YES/NO) ";X$ 



COMPONENT VALUE FOR 






n A 



:R1 
:R2 
iR3 
rR6 



ABOVE STANDARD COMPONENTS CHOSEN:" 



PRINT: PRINT"BASED uln rtDuvr. o irtrjurtKu i^i^i-irwL-jjJiN io ■ 

K=R6/R1 : XX= { 1 000/ (6 . 28*C*R1 ) ) *SQR ( (R1 +2*R3) /R3) 

FO=XX:Q=6.28*R1*FO*C/1000 , 

G=K*SQR(Q) 

PRINT"CENTER FREQUENCY = 



155 PRINT"CENTER FREQUENCY = " ; INT (F0*1 0+ . 5 ) /I ; "HZ 

156 PRINT"CENTER FREQUENCY GAIN = " ; INT (G* 1 00+ . 5) /I 00 

157 PRINT"Q = ";INT(Q*100+.5)/100 
'"" PRINT: INPUT"TRY ANOTHER SET OF STANDARD VALUES (YES/NO) ";X$ 

IF X$="YES" THEN 145 ELSE 160 

CLS:INPUT"DO YOU WISH TO KNOW THE AMPLITUDE RESPONSE (YES/NO) ";X$ 



158 
159 
160 



Fig. 6-26. Listing for BNDPASS 2 program. 



Continued on next page. 
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161 IF X$="YES" THEN 162 ELSE 168 ..^ 

162 INPUT"INPUT FREQUENCY IN HZ " rFI " I 

163 F=FI/FO:FX=( ( (F+2) - 1 ) /F) + 2 : V= 1 + (Q+2 ) *FX 

164 DB= (20*LOG{G)/LOG(10) ) - { 1 0*LOG (V) /LOG ( 1 ) } 

165 PRINT" AMPLITUDE RESPONSE = " ; INT {DB* 1 00+. 5 ) /I 00 ; "DB" 

166 PRINT: INPUT"TRY ANOTHER FREQUENCY (YES/NO) ";X$ 

167 IF X$="YES" THEN 162 ELSE 168 ,. ^ , 

168 PRINT"DESIGN COMPLETED" ' " (v ^-. ^ - ^ -^iT ' ' 

169 END . ^, . ^ 

Fig. 6-26 (cont). Listing for BNDPASS2 program. 

BANDPASS FILTER DESIGN FOR Q LESS THAN 50 



.-/:;- --1 









i-!}i 



DESIGN BASED ON KNOWING: 1 

2 
3 

CHOICE? 2 

3-DB BANDWIDTH IN H2 ? 50 



Q 

3-DB BANDWIDTH 

UPPER & LOWER 3-DB FREQUENCIES 



HIT <ENTER> TO CONTINUE ? 

STANDARD CAPACITOR VALUE IN UF ? 0.018 

CENTER FREQUENCY IN HZ ? 1000 

CENTER FREQUENCY VOLTAGE GAIN ? 3 






GAIN TOO LOW. TRY ANOTHER VALUE. 
CENTER FREQUENCY VOLTAGE GAIN ? 5 
R1 R2 R3 



176.93 


101.44 


.45 


K-OHMS 


R4 


R5 


R6 




176.93 


176.93 


197.81 


K-OHMS 



TRY ANOTHER SET OF VALUES {YES/NO) ? NO 

ENTER STANDARD COMPONENT VALUE FOR: 

R1 (IN K-OHMS) ? 177 

R2 (IN K-OHMS) ? 100 

R3 (IN K-OHMS) ? 0.453 

R6 {IN K-OHMS) ? 196 ■"• 

C (IN UF) ? 0.018 ^ , , ^.. „.. 

BASED ON ABOVE STANDARD COMPONENTS CHOSEN: 
CENTER FREQUENCY = 990.5 HZ 
CENTER FREQUENCY GAIN = 4.93 
Q = 19.82 

TRY ANOTHER SET OF STANDARD VALUES (YES/NO) ? NO 

DO YOU WISH TO KNOW THE AMPLITUDE RESPONSE (YES/NO) ? YES 

INPUT FREQUENCY IN HZ ? 990.5 

AMPLITUDE RESPONSE = 13.86 DB 

TRY ANOTHER FREQUENCY (YES/NO) ? YES 
INPUT FREQUENCY IN H2 ? 300 

AMPLITUDE RESPONSE = -21.62 DB 

TRY ANOTHER FREQUENCY (YES/NO) ? NO ■" 



DESIGN COMPLETED 

READY 

> 






Fig. 6-27. Results for Example 6-5. 
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Fig. 6-28. Final circuit for Example 6-5. 
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100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 



' STAGGERED-TUNED BUTTERWORTH BANDPASS FILTER DESIGN (TUNEDBP) 
CLS:CLEAR:PRINT"STAGGERED TUNED BUTTERWORTH BANDPASS FILTER DESIGN" 
PRINT: INPUT"NUMBER OF STAGES DESIRED ";P:IF P>4 GOTO 180 .9,^^i K&:r.*3C 

INPUT"L0WER 3-DB FREQUENCY (IN HZ) ";FL 
INPUT"UPPER 3-DB FREQUENCY (IN HZ) ";FH 

FZ=SQR(FL*FH) : PRINT" CENTER FREQUENCY =" ; INT (FZ* 1 0+. 5 ) /I ; "HZ" l 
B=FH-FL: PRINT" 3-DB BANDWIDTH = " ; INT (B* 1 0+ . 5 ) /I r " HZ" _.. ... .^ -'.^.■. 

B1=B/FZ 

IF P=2 THEN 109 ELSE 129 

PRINT"1ST SECTION DESIGN PARAMETERS:" ''i.,'.' ■ . y- 

A1=1+.365*B1 :D1=.707*B1 :F1=FZ*A1 :F2=FZ/A1 

Q1 = 1/D1 .., -^ . ., . ,. 

PRINT" CENTER FREQUENCY = ";F1;" HZ Q = 

PRINT"2ND SECTION DESIGN PARAMETERS:" 

PRINT" CENTER FREQUENCY = ";F2;" HZ Q = 

A=-l :FI=FZ:GOTO 119 

PRINT: INPUT"AMPLITUDE RESPONSE (1=YES, 0=NO) 

IF A=l THEN 118 ELSE 123 

INPUT"INPUT FREQUENCY IN HZ";FI 

FA=FI/F1 :FC=FI/F2:Q2=Q1 > , ■" 

DA=SQR{1+(QH-2) *( ( (FA■^2)-1 )/FA)+2) 

DC=SQR(l+(Q2+2)*( ( (FC+2) -1)/FC) +2) ^M ; 

Y=1/(DA*DC) :DB=8.68589*LOG(Y) 

IF A=-1 THEN 124 ELSE 125 

PRINT"GAIN OF CASCADED STAGES MUST BE AT LEAST" ; -INT (DB* 1 0+ . 5 ) /I ? "DB" : GOTO 

PRINT" AMPLITUDE RESPONSE WITH INSERTION LOSS = " ; INT (DB* 1 0+ . 5 ) /I ; "DB" 

PRINT: INPUT"ANOTHER INPUT FREQUENCY (1=YES, 0=NO) "jC 

IF C=1 THEN 118 ELSE 128 

PRINT"DESIGN COMPLETED" : GOTO 182 

IF P=3 THEN 130 ELSE 152 -^ U. 

PRINT" 1ST SECTION DESIGN PARAMETERS:" 

A1=1+.4 5*B1 :A3=A1 :D1=.5*B1 :n3=D1 :D2=1/B1 :F2=FZ 

F1=FZ*A1 :F3=FZ/A3:Q1=1/D1 :Q3=1/D3 :Q2=D2 

PRINT" CENTER FREQUENCY = ";F1;"HZ 



";INT(Ql*10+.5)/10 
"rINT{Ql*10+.5)/10 
";A ;.i..-M 






f 



■f; T 



Ae 



116 



J.} 



Q = 



Q = 

= 

0=NO) 



";INT(Q1*10+.5)/10 
";INT(Q2*10+.5)/10 
";INT(Q3*10+.5)/10 
";A r 



i. J 



- j •- >> _■ 



PRINT"2ND SECTION DESIGN PARAMETERS:" 

PRINT" CENTER FREQUENCY = ";F2;"HZ 

PRINT"3RD SECTION DESIGN PARAMETERS:" 

PRINT" CENTER FREQUENCY = ";F3;"HZ 

A=-1:FI=F2:G0T0 142 

PRINT: INPUT"AMPLITUDE RESPONSE (1=YES, 

IF A=1 THEN 141 ELSE 151 

INPUT" INPUT FREQUENCY IN HZ ";FI 

FA=FI/F1:FB=FI/F2:FC=FI/F3;DA=SQR(1+(Ql+2)* ( ( (FA+2) -1 ) /FA) +2) 

DC=SQR(1+(Q2 + 2)* (( (FB+2)-l)/FB)+2) ,.^ - : a i.; 

DD=SQR(1+(Q3+2)*(((FC+2)-1)/FC) +2 

Y=1/(DA*DC*DD) :DB=8.68589*LOG(Y) '- '^ S •■ 

IF A=-1 THEN 147 ELSE 148 

PRINT"GAIN OF CASCADED STAGES MUST BE AT LEAST" ; -INT (DB* 1 0+ . 5 ) /I ; "DB" iGOTO 139 

PRINT" AMPLITUDE RESPONSE WITH INSERTION LOSS = " ; INT [DB* 1 0+. 5 ) /I ; "DB" 



«=^ 



Continued on next page. 



Fig. 6-29. Listing for TUNEDBP program. 
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";INT(Ql*10+.5)/10 
";INT(Q2*10+.5)/10 
";INT{Q3*10+.5)/10 
";INT{Q4*10+,5)/10 
";A 



jC? 



149 PRINT: INPUT"ANOTHER INPUT FREQUEt^CY {1=YES, = NO) ";C 

150 IF C=1 THEN 141 ELSE 151 

151 PRINT"DESIGN COMPLETED" : GOTO 182 

152 IF P=4 THEN 153 ELSE 180 

153 PRINT" 1ST SECTION DESIGN PARAMETERS:" 

154 A1=1+.485*B1 :A3=1 +. 1 95*B1 :D1= . 38*B1 :D3=.923*B1 

155 F1=FZ*A1 :F2=FZ*A3:F3=F7;/A3:F4=F7/A1 

156 Q1=1/D1 :Q2=1/D3:Q3=Q2:Q4=Q1 

157 PRINT" CENTER FREQUENCY = "jFI;" HZ Q = 

158 PRINT"2ND SECTION DESIGN PARAMETERS:" 

159 PRINT" CENTER FREQUENCY = "?F2;" HZ Q = 

160 PRINT"3RD SECTION DESIGN PARAMETERS:" 

161 PRINT" CENTER FREQUENCY = ";F3;'' HZ Q = 

162 PRINT"4TH SECTION DESIGN PARAMETERS:" 

163 PRINT" CENTER FREQUENCY = ";F4;" HZ Q = 

164 A=-1:FI=FZ:G0T0 168 

165 PRINT: INPUT" AMPLITUDE RESPONSE {1=YES, 0=NO) 

166 IF A=0 THEN 179 ELSE 167 

167 INPUT"INPUT FREQUENCY IN HZ ";FI 

168 FA=FI/F1 :FB=FI/F2:FC=FI/F3:FD=FI/F4 

169 DA=SQRC1+(QH-2)*(( (FA+2) -1 ) /FA) +2) 

170 DC=SQR{1+(Q2+2)*({{FB+2)-1)/FB)+2) 

171 DD=SQR(1+(Q3+2)* ( ( (FC+2 ) -1) /FC) +2) 

172 DE=SQR(1+{Q4+2)*(((FD+2)-1)/FD)+2) 

173 Y=1/(DA*DC*DD*DE) :DB=8 . 68589*LOG (Y) 

174 IF A=-1 THEN 175 ELSE 176 

175 PRINT"GAIN OF CASCADED STAGES MUST BE AT LEAST" ; -INT {DB*1 0+ . 5) /I ? "DB" : GOTO 165 

176 PRINT" AMPLITUDE RESPONSE WITH INSERTION LOSS = " ; INT (DB* 1 0+. 5 ) /I ; "DB" 

177 PRINT: INPUT"ANOTHER INPUT FREQUENCY ( 1 =YES , a = NO) ";C 

178 IF C=1 THEN 167 ELSE 179 

179 PRINT"DESIGN COMPLETED" : GOTO 182 

180 PRINT"DESIGNS LIMITED UP TO 4 STAGES - TRY AGAIN, 

181 GOTO 102 

182 END 

Fig. 6-29 (cont). Listing for TUNEDBP program. 



STAGGERED-TUNED BUTTERWORTH 
BANDPASS FILTERS 

Very often it is required to have a bandpass 
filter that passes a range of frequencies, instead 
of a single frequency. In most cases a single stage 
bandpass section like those previously described 
will not offer the necessary response. Conse- 
quently, it may be necessary to cascade two or 
more bandpass sections in order to do the job. 
The program listing (TUNEDBP) shown in Fig. 
6-29 allows for the design of either a 2, 3, or 4 
stage Butterworth (maximally flat passband) 
bandpass filter. The program calculates the re- 
quired center frequency and Q for each stage. In 
addition, the insertion loss of the filter is also de- 
termined, which must be made up when designing 
the individual stages. The following example il- 
lustrates the use of the TUNEDBP program. 

Example 6-6 

Design a 3-stage bandpass filter having a lower 



3-dB frequency of 2050 Hz and an upper 3-dB 
frequency of 2350 Hz. When the TUNEDBP pro- 
gram is run, the results, as shown in Fig. 6-30, 
are obtained. 

For our example, we see that the first and third 
sections have values of Q that are greater than 10 
(i.e., 14.6). Consequently, we should use the filter 
circuit shown in Fig. 6-25 and the BNDPASS2 
program to calculate each section separately. For 
the second section, the Q is less than 10 (i.e., 7.3), 
so that we are able to use the circuit of Fig, 6-21 
and the corresponding BNDPASSl program. If 
the Q of any stage is found to be greater than 50, 
then the state-variable filter should be used. In 
addition, the overall gain of the three stages must 
be at least 12.16 dB, or a voltage gain of 4.05 in 
order to overcome the insertion loss presented by 
the filter. 

Fig. 6-31 shows one of many circuits that are 
possible to satisfy our design. The voltage gain 
for the first and third sections is 4, while the 
gain for the second section is 2, giving an overall 
gain of 32 (+30.1 dB). 
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STAGGERED TUNED BUTTERWORTH BANDPASS FILTER DESIGN 



^^l 



NUMBER OF STAGES DESIRED ? 3 

LOWER 3-DB FREQUENCY (IN HZ) ? 2050 

UPPER 3-DB FREQUENCY (IN HZ) ? 2350 

CENTER FREQUENCY = 2194.9 HZ 

3-DB BANDWIDTH = 300 HZ 
1ST SECTION DESIGN PARAMETERS: 

CENTER FREQUENCY = 2329.88 HZ 
2ND SECTION DESIGN PARAMETERS: 

CENTER FREQUENCY = 2194.88 HZ 
3RD SECTION DESIGN PARAMETERS: 

CENTER FREQUENCY = 2067.7 HZ 
GAIN OF CASCADED STAGES MUST BE AT LEAST 12.2 DB 



Q = 14.6 
Q = 7.3 
Q = 14.6 






- 1 ■.. . 



AMPLITUDE RESPONSE (1 =YES , 0=NO) ? 1 
INPUT FREQUENCY IN HZ ? 1750 

AMPLITUDE RESPONSE WITH INSERTION LOSS = -43.5 DB 

ANOTHER INPUT FREQUENCY ( 1 =YES , 0=NO) ? 1 
INPUT FREQUENCY IN HZ ? 3000 

AMPLITUDE RESPONSE WITH INSERTION LOSS = -52.1 DB 

ANOTHER INPUT FREQUENCY ( 1 =YES , 0=NO) ? 

DESIGN COMPLETED 

READY 
> 



Fig. 6-30. KeHults for 
Example 6-6. 



m 
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ISr SECTION 



2ND SECriDH 

Fig. 6-31. Final circuit for Example 6-6. 



3RD SECTION 



THE NOTCH FILTER 

Fig. 6-32 shows a notch filter for values of Q 
less than 25. For values of Q greater than 25, 
the state-variable notch filter should be used. As 
with all the filter designs discussed, both capaci- 
tors are made equal to each other. 

The NOTCH program listed in Fig. 6-33 re- 
quires the following initial information: 



1. Design determined by knowing either Q, 
3-dB bandwidth, or the 3-dB frequencies 

2. Standard capacitor value 

3. Notch, or null frequency 

4. Passband voltage gain 

after which the remaining resistor values are de- 
termined. 
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I 
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•i . . :^ 



i-r. 



-O OUTPUT 



Fig. 6-32. Notch filter. 



,00 






VI- 1. i -y^-^ 



\H vU. 



Q" 

3-DB BANDWIDTH" 

UPPER & LOWER 3-DB FREQUENCIES" 



ELSE 108 



'■■ft'^Ji'l^ 



■^ r 






FL 



100 ' NOTCH FILTER DESIGN (NOTCH) 

101 CLS: PRINT, "NOTCH FILTER DESIGN" 

102 PRINT 

103 PRINT"DESIGN BASED ON KNOWING: 1 

104 PRINT" 2 

105 PRINT" 3 

106 PRINT@473, "SELECT # " : Z9=483 :G0SUB171 

107 IF Z9$<>"1" AND Z9$<>"2" AND Z9$<>"3" THEN 106 

108 PRINT@483,Z9$:IF Z9$="1" THEN 111 

109 IF Z9$="2" THEN 1 15 

110 IF Z9$="3" THEN 117 -''1 

111 PRINT :INPUT"Q ";Q 

112 IF Q>=25 THEN 113 ELSE 114 

113 PRINT"Q MUST BE LESS THAN 25.":G0T0 111 

114 GOTO 124 

115 PRINT: INPUT"3-DB BANDWIDTH IN HZ " ; BW 

116 GOTO 124 

117 PRINT: INPUT"LOWER 3-DB FREQUENCY IN HZ 

118 INPUT"UPPER 3-DB FREQUENCY IN HZ " ; FH 

119 FO=SQR(FH*FL) 

120 PRINT" NOTCH (NULL) FREQUENCY =" ; INT (FO* 1 + . 5 ) /I ; "HZ" 

121 BW=FH-FL:Q=FO/BW 

122 PRINT" 3-DB BANDWIDTH =" ? INT (BW* 1 0+ , 5 ) /I ; "HZ " 

123 PRINT" Q =";INT(Q*10+.5)/10 

124 PRINT:INPUT"HIT <ENTER> TO CONTINUE ";Z 

125 CLS:INPUT"STANDARD CAPACITOR VALUE IN UF ";C 

126 IF Z9$="1" THEN 129 ELSE 127 

127 IF Z9$="3" THEN 132 ELSE 128 

128 IF Z9$="2" THEN 129 

129 INPUT"NOTCH (NULL) FREQENCY IN HZ " ; FO 

130 IF Z9$="1" THEN 132 ELSE 131 '• ' "" ■- ' - " 

131 Q=FO/BW 1" ■ 

132 INPUT"PASSBAND VOLTAGE GAIN ";G 

133 H=100/(FO*C) :R1=0.796*Q*H:R2=R1/C (Q+2)-1 ) 

134 R3=H:R4=4*R1:R5=2*H:R6=G*H 

135 R1=INT(R1*100+.5)/100:R2=INT(R2*100+.5)/100 

136 R3=INT(R3*100+.5)/100 

137 R4=INT(R4*100+.5)/100:R5=INT(R5*100+.5)/100 

138 R6=INT(R6*100+.5)/100 

139 PRINT:PRINT"THEN: ":PRINT" R1"," R2 " , " R3 " 

140 PRINT R1,R2,R3, "K-OHMS" 

141 PRINTiPRINT" R4 " , " R5"," R6 " ' 

142 PRINT R4,R5,R6/' K-OHMS" 

143 PRINT: INPUT" TRY ANOTHER SET OF VALUES 

144 IF X$="YES" THEN 125 ELSE 145 



■1 ; 



.• r 



v.^. 



r-'-.f 



yj* III 



(YES/NO) '•;X$ 



Continued on next page. 



Fig. 6-33. Listing for NOTCH program. 
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145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 



PRINT: PRINT"ENTER STANDARD COMPONENT VALUES FOR:" 
PRINT: INPUT"R1 (IN K-OHMS) ";R1 
TMDnrr"o9 (IN K-OHMS) "•°'' ' 



INPUT"R2 (IN K-OHMS) " ; R2 

INPUT"R3 (IN K-OHMS) " ; R3 

INPUT"R4 (IN K-OHMS) " ; R4 

INPUT"R6 (IN K-OHMS) " ; R6 
INPUT"C (IN UF) ";C 



1- ./AV 



iM 



5)/1 
X$ 



INPUT"C (IN UF) ";C " ■ ^--^ — - 

PRINT: PRINT"BASED ON ABOVE STANDARD COMPONENTS CHOSEN:" 

R2=1E3*R2:R1=1E3*R1 :C=1E-6*C:R4=1E3*R4 

FO=SQR( ( (R2+R1)/(R1*R2) ) * ( 1/ (R4* {C+2) ) ) ) /6 . 28 , 

H=lE-4/(F0*C) :Q=R1*lE-3/(.796*H) :G=R6/R3 ' 

PRINT"NOTCH FREQUENCY =" ; INT (F0*1 00 . +. 5) /I 00 ; "HZ " 

PRINT"PASSBAND VOLTAGE GAIN =" ; INT (G* 1 00+. 5 ) /I 00 

PRINT"Q =";INT(Q*100+. 5) /I 00, "BANDWIDTH =";INT( (FO/Q)*100+. 

PRINT: INPUT"TRY ANOTHER SET OF STANDARD VALUES (YES/NO) ";X. 

IF X$="YES" THEN 146 ELSE 161 

CLS:INPUT"DO YOU WISH TO KNOW THE AMPLITUDE RESPONSE (YES/NO) " 

IF X$="YES" THEN 163 ELSE 169 

INPUT"ENTER INPUT FREQUENCY IN HZ ";FI 

F=FI/FO:V=4.34294*LOG( ( 1-F+2) +2 ) -4 . 34294*LOG { ( 1 -F+2) +2+F/Q+2 ) 

DB=(20*LOG(G)/LOG(10) ) +V 

PRINT" AMPLITUDE RESPONSE = ";DB;:PRINT" DB" 

PRINT: INPUT"TRY ANOTHER FREQUENCY (YES/NO) ";X$ 

IF X$="YES" THEN 163 ELSE 169 



— < - - t. - 



00; "HZ" 

rx$ 



PRINT"DESIGN COMPLETED" 

END 

PRINTiaz9,CHR$ (143) ; :L=1: 

29$=INKEY$ 

IFZ9$<>"" THEN PRINT Z9," ";:RETURN 

L=L+1 

IF L<10 THEN 172 

PRINT@Z9," "; 

FOR L=1 TO 5: NEXT 

GOTO 171 
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Fig. 6-33 (cont). Listing for NOTCH program. 



Example 6-7 

Design a 60-Hz notch filter with a Q of 20 and 
a passband gain of 4 (+12.04 dB) . 

Selecting a standard capacitor value of 0.22 /iF, 
Fig. 6-34 shows the program output, while Fig. 
6-35 illustrates the final circuit. 

A WIDEBAND FILTER 

Very often, particularly in audio applications, 
it is desired to pass a wide band of frequencies 
such that the bandwidth of the filter is to be more 
than twice its center frequency. In addition, the 
passband gain is to be relatively constant. Such 
is the case of a filter that passes audio frequencies 
ranging from 300 Hz to 3000 Hz. 

The "center frequency" is then 949 Hz, while 
the bandwidth is 2700 Hz. Virtually no standard 



bandpass filter (including staggered-tuned de- 
signs) will function properly over this range. 
However, by cascading a 3000-Hz low-pass sec- 
tion with a 300-Hz high-pass section (from second 
to sixth order), we are then able to produce the 
desired response, as shown in the following ex- 
ample. 

Example 6-S 

Design a 300- to 3000-Hz wideband filter having 
relatively constant passband gain with second- 
order stopband responses. 

Since the passband gain is to be essentially con- 
stant, then a second-order Butterworth design 
should be used for each section. Using the LPHP 
program discussed earlier in this chapter, we can 
then design each section individually, as shown by 
the final circuit of Fig. 6-36. 
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NOTCH FILTER DESIGN " , | ' 

DESIGN BASED ON KNOWING: 1. Q 

2. 3-DB BANDWIDTH 

3. UPPER & LOWER 3-DB FREQUENCIES 

SELECT # ? 1 * ' . , .... 

t 

Q ? 20 = ■ 

HIT <ENTER> TO CONTINUE ? t 

STANDARD CAPACITOR VALUE IN UF ? 0.2 2 ; , , 

NOTCH (NULL) FREQENCY IN HZ ? 60 ., -/^^ 

PASSBAND VOLTAGE GAIN ? 4 .,. . 



Fir. 6-34. Results for 
Example 6-7. 
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THEN: 
R1 
120.61 

R4 
482.42 



R2 

,.3 ■ 

R5 
15.15 



R3 
7.58 

R6 
30.3 



K-OHMS 



K-OHMS 



TRY ANOTHER SET OF VALUES (YES/NO) ? NO 

ENTER STANDARD COMPONENT VALUES FOR: 

R1 (IN K-OHMS) ? 120 

R2 (IN K-OHMS) ? .300 

R3 (IN K-OHMS) ? 7.5 ,,. ,., . ^., ., 

R4 (IN K-OHMS) ? 487 

R6 {IN K-OHMS) ? 30 -.j -,., 

C (IN UF) ? 0.22 

BASED ON ABOVE STANDARD COMPONENTS CHOSEN: 

NOTCH FREQUENCY = 59.96 HZ 

PASSBAND VOLTAGE GAIN =4 7 

Q = 19.89 BANDWIDTH = 3.02 HZ 

TRY ANOTHER SET OF STANDARD VALUES (YES/NO) ? NO 

DO YOU WISH TO KNOW THE AMPLITUDE RESPONSE (YES/NO) ? YES 

ENTER INPUT FREQUENCY IN HZ ? 50 

AMPLITUDE RESPONSE = 11.9436 DB 

TRY ANOTHER FREQUENCY (YES/NO) ? YES 
ENTER INPUT FREQUENCY IN HZ ? 59.96 
AMPLITUDE RESPONSE = -40.2648 DB 

TRY ANOTHER FREQUENCY (YES/NO) ? NO 

DESIGN COMPLETED 

READY 
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Fig. 6-35. Final circuit for 
Example 6-7. 
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Fig. 6-36. Final circuit for 
Example 6-8. 
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Solid-State Devices 



This chapter describes programs which simplify 
the design of zener diode voltage regulators, the 
single stage common-emitter transistor amplifier, 
the analysis of transistor biasing, heat sinks, and 
555 timer circuits. 

ZENER DIODE VOLTAGE 
REGULATOR DESIGN 

The ZENER program listing of Fig. 7-1 allows 
for the determination of the proper resistance 
and zener diode power rating for the regulator 



+ UC INPUT O- 



R 



-» + IIEOULATEO OUTPUT 



Fig. 7-2. Zener diode voltage regulator. 



circuit of Fig. 7-2. When executed, the program 
requires the following specifications: 

1. Minimum and maximum dc input voltage 

2. Minimum and maximum load current, in 
milliamperes 

3. Zener diode (regulated output) voltage 

In addition to determining the series resistance 
and the minimum power rating for the zener di- 
ode, the program also determines the diode rating 
if the load is disconnected from the regulator, so 
that the load current is zero. 

Example 7-1 

Determine the necessary series resistance and 
diode rating for a regulator circuit having a dc 
input voltage from 11.95 to 12.05 volts, and con- 
nected to a load which draws between 75 and 
300 mA. 

The output results are shown in Fig. 7-3. 



100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 



'ZENER DIODE VOLTAGE REGULATOR DESIGN (ZENER) 

CLS:PRINTTAB(10) "ZENER DIODE VOLTAGE REGULATOR DESIGN" 

PRINT: INPUT"MINIMUM DC INPUT VOLTAGE " ;VN 

INPUT"MAXIMUM DC INPUT VOLTAGE "fVX 

INPUT"MINIMUM LOAD CURRENT (IN MA) " ; IN 

INPUT"MAXIMUM LOAD CURRENT (IN MA) " ; IX 

IN=IN*lE-3:IX=IX*1E-3 

INPUT"ZENER DIODE VOLTAGE ";VZ 

R=(VN-VZ)/(1.1*IX) 

P=VZ* ( ((VX-VZ)/R)-IN) 

R=INT(R*10+.5)/10:P=INTCP*100+.5)/100 

PRINT:PRINT"THEN: " 

PRINT:PRINT"REQUIRED SERIES RESISTANCE =";R;"OHMS" 

PRINT"MINIMUM ZENER DIODE RATING =";P; "WATTS" 

IF IN=0 THEN 117 

Z=VZ* ( (VX-VZ)/R) :Z=INT(Z*100+.5)/100 

PRINT"MINIMUM ZENER DIODE RATING WITH NO LOAD =";Z; "WATTS" 

PRINT: END 

Fig. 7-1. Listing for ZENER program. 
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ZENER DIODE VOLTAGE REGULATOR DESIGN 

MINIMUM DC INPUT VOLTAGE ? 11.95 
MAXIMUM DC INPUT VOLTAGE ? 12.05 
MINIMUM LOAD CURRENT (IN MA) ? 7 5 
MAXIMUM LOAD CURRENT (IN MA) ? 300 
ZENER DIODE VOLTAGE ? 5.1 

THEN : 

REQUIRED SERIES RESISTANCE =20.8 OHMS 

MINIMUM ZENER DIODE RATING = 1.3 3 WATTS 

MINIMUM ZENER DIODE RATING WITH NO LOAD =1.7 WATTS 



FiR. 7-3. Results for 

Example 7-1. 



READY 
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555 TIMER DESIGN 

The 555 integrated circuit timer is one of the 
most popular devices in use. With the same device, 
it is possible to design both monostable (one-shot) 
agjd astable (free-running) multivibrator circuits, 
as shown in Figs. 7-4 and 7-5, respectively. 

The TIMER555 program listing of Fig. 7-6 de- 
termines the required component values for mono- 
stable and astable circuits, as well as displaying 
the final schematic circuit on the video display. 
Depending on the type of design, the following 
initial information is required : 

1. Monostable Design : 

a. Standard capacitor value 

b. Time delay in seconds 

2. Astable Design : 

a. Standard capacitor value 

b. Output frequency in Hz 

c. Percent duty cycle 

The percent duty cycle must be greater than 50% 
and less than 100%. If the duty cycle is to be 



+ V 




symmetrical, then use the value of 50.1% for the 
duty cycle. For both designs, the program permits 
the calculated component values to be changed if 
they are not close enough to standard values. 

Example 7-2 

Using a 555 timer, design a monostable multi- 
vibrator having a time delay of 0.055 second. 

As shown in Fig. 7-7A, we started by choosing 
a value of 0.01 /aF. However the computed re- 
sistance value did not appear to be close to a stan- 
dard value. The process was repeated until the 
final value of 0.022 juF was used so that a 2.2-meg- 
ohm resistor could be used. The final circuit is 
shown in Fig. 7-7B. 

Example 7-3 

Using a 555 timer, design an astable multivibra- 
tor with an output frequency of 2400 Hz and a 
55% duty cycle. Repeat for a 95% duty cycle. 

For a 55% duty cycle, the output results are 
shown in Fig. 7-8, while Fig. 7-9 shows the results 
for a 95% duty cycle. 
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Fig. 7-4. Monostable multivibrator using the 555 timer. 



Fig. 7-5. Astable multivibrator using the 555 timer. 
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100 ' 555 TIMER DESIGN - WITH GRAPHICS (TIMER555) 

101 CLS:PRINTTAB(17) "555 INTEGRATED CIRCUIT TIMER DESIGN" 

102 PRINT: INPUT "<M>ONOSTABLE OR <A>STABLE MODE ";C$ 

103 IF C$<>"M" AND C$<>"A" THEN 101 

104 IF C$="M" THEN 105 ELSE 114 

105 CLS:PRINTTAB(16)"555 TIMER - MONOSTABLE OPERATION" 

106 PRINT: INPUT"TIME DELAY (SECONDS) ";T 

107 IF T<1E-3 THEN 106 

108 INPUT"C (UF) ";C 

109 IF C<.001 THEN 108 

110 R=INT( ( (1E3*T)/{1. 1*C) )*100+.5)/100:PRINT" R =" ; R; "K-OHMS" 

111 PRINT: INPUT"CHANGE VALUES (YES/NO) " ; A$ : IF A$="YES" THEN 108 

112 GOSUB 131 

1 1 3 END . 

114 CLS:PRINTTAB(18)"555 TIMER - ASTABLE OPERATION" 

115 PRINT: INPUT"OUTPUT FREQUENCY (HZ) ";F 

116 IF F>200E3 THEN 1 15 

117 INPUT"PERCENT DUTY CYCLE (>.50%) ";D:D=D/100 

118 IP D<=.5 THEN 117 

119 INPUT"C (UF) ";C:C=C*lE-6 

120 IF C<lE-9 THEN 119 . . -..; 

121 RA={2*D-1)/(LOG(2)*C*F) 

122 RB=(1/(2*LOGC2)*C*F) )-(RA/2) 

123 X=C* (RA+2*RB) :F=(1/L0G(2) )*1/X 

124 RA=INT( (RA/1E3)*100+.5)/100:RB=INT((RB/1E3)*100+.5)/100:C=C/1E-6 

125 D=D*100:PRINT" RA ="; RA; "K-OHMS" ; " RB =" ;RB; "K-OHMS" 

126 PRINT :INPUT"CHANGE INPUT VALUES (YES/NO) ";B$ 

127 IP B$="NO" THEN 128 ELSE 117 

128 GOSUB 170 

129 GOSUB 182 

130 END 

131 CLS:PRINT@0, "FINAL DESIGN" :PRINT@20, "+VCC" 

132 PRINT@35/'+VCC" 

133 PRINT^159,"4 8" 

134 PRINT@210,"R":PRINT@262,R; "K-OHMS" 

135 PRINT@282,"6" 

136 PRINT@362,"3" ■ •■ - ---- 

137 PRINT@417,"555" 

1 38 PRINT@433 , "OUTPUT" :PRINT@4 96 ,T; "SEC" 

139 PRINT@529/'C +" :PRINT@538 , "7" :PRINT@585,C; "UF" :PRINT@671 ,"2 

140 PRINT@848, "INPUT" 

141 FORX=58T081 :SET{X,11) :SET(X,26) :NEXT 

142 FORX=57TO82:SET(X,10) :SET(X,27) :NEXT 

143 F0RY=11T026:SET(58,Y) : SET (81 ,Y) :NEXT 

144 FORY=10TO27:SET{57,Y) :SET(82,Y) :NEXT 

145 FORY=27T033:SET(74,Y) :NEXT 

146 FORX=71T077:SET(X,33) :NEXT 

147 SET (71 ,34) : SET (74, 34) : SET (77, 34) 

148 F0RY=27TO39:SET(65,Y) :NEXT 
1 4 9 F0RX=4 5T06 5 : SET (X , 3 9 ) : NEXT 

150 F0RX=83TO95:SET(X,19) :NEXT 

151 FORY=4TO10:SET(74,Y) :NEXT 

152 FORY=7TO10:SET(65,Y) :NEXT "'" -■'* 

153 FORX=65T074:SET(X,7) :NEXT 

154 PORX=45T057:SET(X,17) :SET(X,21 ) :NEXT 

155 FORY=14T025:SET(44,Y) :NEXT 

156 FORX=41T047:SET(X,26) :SET(X,28) :NEXT 

157 FORY=29T033:SET(44,Y) :NEXT 

158 FORX=41T047:SET(X,34) :NEXT 

159 SET (41,35) : SET (44, 35) : SET (47,35) 

160 F0RX=43T045:SET(X,13) :SET(X,10) :NEXT 



Fig. 7-6. Listing for TIMER555 progiam. 



Continued on next page. 



11® 



Solid-State Devices 



161 FORY=10TO13:SET(43,Y) :SET{45,Y) : NEXT 

162 FORY=4TO10:SET(44,Y) :NEXT 

163 SET (25,38) : SET (26,38) : SET (26, 39) : SET (26, 40) :SET(27,40) 

164 SET (28, 40) : SET (28, 39) : SET (28, 38) : SET (29, 38) 

165 SET (98, 16) :SET(99,16) :SET(100,16) :SET(100,15) :SET(100,14) 

166 SET (105, 16) :SET(106,16) :SET(107,16) 

167 FORX=100TOl05:SET(X,14) :NEXT 

168 SETt105,15) 

169 RETURN 

170 CLS:PRINT@0, "FINAL DESIGN" :PRINT@1 8 , "+VCC" 

171 PRINT@35,"+VCC" ' ,^ --' -; - 

172 PRINT^I 4 2 , "RA*' : PRINT@1 59 , "4 8 " 

173 PRINT@197,RAr "K-OHMS" :PRINT@334 , "RB" 

174 PRINT@346,"7":PRINT@362,"3" 

175 PRINT@389,RB?"K-OHMS":PRINT@417,"555" 

176 PRINT@433, "OUTPUT" 

177 PRINT@474,"6":PRINT@496,F;"HZ" 

178 PRINT@556,"DUTY CYCLE =" ; D; " %" : PRINT@59 , "C +" ^ -■■;-■ 

179 PRINT@646,C;"UF" 

180 PRINT@671,"2 1" .'^■-. '-.." ■ 

181 PRINT@832,"":RETURN ^;, ■ .i. ,-;- 

182 FORX=58T081 :SET(X, 1 1 ) :SET(X,26) :NEXT 

183 FORY=11T026:SET(58,Y) :SET(B1,Y) iNEXT 

184 FORX=57TO82:SET(X,10) :SET(X,27) :NEXT 

185 FORY=10TO27:SET(57,Y) :SET(82,Y) :NEXT - 

186 FORY=27T037:.SET(74,Y) :NEXT 

187 F0RX=71T077:SET(X,375 :NEXT 

188 SET(71 ,38) :SET(74,38) :SET(77,38) ^,, -. 

189 FORY=27T034:SET(65,Y) :NEXT 

190 F0RX=83TO95:SET(X,19) :NEXT 

191 FORY=4TO10:SET(74,Y) :NEXT 
192- FORX^6 5T07 4:SET(X,7) :NEXT 

193 FORY=7TOia:SET(65,Y) :NEXT 

194 FOR X=40TO57:SET(X,13) :SET(X,24) :NEXT 

195 FORX=52T064:SET(X,34) :NEXT 

196 F0RY=25TO33:SET(52,Y) :NEXT ^,,,^ 

197 FORY=4TO6:SET(40,Y) :NEXT 

198 FORY=10TO16:SET(40,Y) :NEXT 

199 FORY=20TO28:SET(40,Y) :NEXT 

20 FORX=39T041 :SET(X,6) :SET(X,10) :SET(X,16) :SET(X,20) :NEXT 

201 FORY=6TO10:SET(39,Y) : SET (41 ,Y) :NEXT 

202 FORY=16TO20:SET(39,Y) : SET (41 ,Y) :NEXT 

203 FORY=30TO38:SET{40,Y) :NEXT 

204 FORX=37T043:SET(X,37) :NEXT 

205 SET(37,38) :SET(43,38) 

206 F0RX=37TO43:SET(X,28) :SET(X,30) :NEXT 

207 RETURN J 
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Fig. 7-6 (cont). Listing for TIMER555 program. 



TRANSISTORS 

In these days of integrated circuits that virtu- 
ally do everything, the transistor is still an im- 
portant facet of the design and analysis of elec- 
tronic circuits. In general, the one-power supply 
bias network of a bipolar transistor will have the 
generalized circuit of Fig. 7-10, in that one or 
more resistors will be either open or short cir- 
cuited. 



For any given circuit, the BIAS program of 
Fig. 7-11 will determine the operating point of 
the transistor with the values of the three termi- 
nal currents, and the quiescent output voltage, 
Voii. When run, the required parameters are: 

1. Supply voltage 

2. Typical beta of the transistor 

3. Leakage current I,.^,, 

4. The network resistors (in ohms) 



Solid-State Devices 

555 timer - monostable operation 



TIME DELAY (SECONDS) ? 0.055 
C (UF) ? .01 

R = 5000 K-OHMS ' :. 



CHANGE VALUES (YES/NO) ? YES 
C (UF) ? .018 

R = 2777.78 K-OHMS 
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FINAL DESIGN +VCC +VCC 



2272.73 K-OHMS 



f C + 
.022 UF 



I'iki 

IsH 



OUTPUT 
.055 SEC 



CHANGE VALUES (YES/NO) ? YES 
C (UF) ? .022 

R = 2272.73 K-OHMS ' '■ 



V INPUT I 



CHANGE VALUES (YES/NO) ? NO 
(A) Output results. 



Fig. 7-7. ReaultB for Example 7-2. 



(B) Video pU}t. 



FINAL DESIGN 

RA 
1.82 K-OHMS 



8.2 K-QHMS 

C + 
.033 UF 




555 TIMER - ASTABLE OPERATION 

OUTPUT FREQUENCY (HZ) ? 2400 
PERCENT DUTY CYCLE (> 50%) ? 55 
C (UF) ? .001 

RA = 60,11 K-OHMS RB = 270,51 K-OHMS 

CHANGE INPUT VALUES (YES/NO) ? YES , 
PERCENT DUTY CYCLE (> 50%) ? 55 
C (UF) ? .033 

RA = 1.82 K-OHMS RB = 8.2 K-OHMS 

CHANGE INPUT VALUES (YES/NO) ? NO 

(A) Output results. (B) Video plot. 

Fig. 7-S. Results for Example 7-3 for a 55% duty cycle. 



OUTPUT 

2400 HZ 

DUTY CYCLE = 55% 



3.01 K-OHMS 




FINAL OESIGN +VCC 



RA 
54.1 K-OHMS 



555 TIMER - ASTABLE OPERATION 

OUTPUT FREQUENCY (HZ) ? 2400 
PERCENT DUTY CYCLE (> 50%) ? 95 
C (UF) ? .033 

RA = 16.39 K-OHMS RB = .91 K-OHMS 

CHANGE INPUT VALUES (YES/NO) ? YES 
PERCENT DUTY CYCLE (> 50%) ? 95 
C (UF) ? .018 

RA = 30.06 K-OHMS RB = 1.67 K-OHMS 

CHANGE INPUT VALUES (YES/NO) ? NO " 

(A) Output results. (B) Video plot 

Fig. 7-9. Results for Example 7-3 for a 95% duty cycle. 



OUTPUT 

2400 HZ 

DUTY CYCLE = 95' 
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Fig. 7-10. Generalized transistor bias circuit. 

The program assumes that silicon transistors 
are used so that the forward biased base-emitter 
voltage VBE is 0.65 (in line 110). If any one of 
the five resistors is represented by an open cir- 
cuit, as is frequently the case with the feedback 
resistor RF, then the value of 1E12 (IQi^) should 
be used. 

Example 7-4 

For the circuit of Fig, 7-12, determine the 
2N2222 transistor operating point assuming a 
typical beta of 200 and a leakage current I^l-,, of 
10 fiA. 

The computed results are shown in Fig. 7-13. 

For designing a single stage common-emitter 
amplifier, as shown in Fig. 7-14, the TRANSAMP 
program of Fig, 7-15 is used. Having a particular 
transistor in mind, the program requires the fol- 
lowing parameters : 



Fig. 7-12. Circuit for Example 7-4. 

1. Maximum collector-emitter voltage Vce 

2. Maximum collector current, in milliamperes 

3. Maximum power dissipation, in milliwatts 

4. Maximum junction temperature, in degrees 
Celsius 

5. Leakage current, L,,, in microamperes 

6. Input impedance, hi^ 

7. Minimum, typical, and maximum beta (h^E) 

It is assumed that silicon transistors are used. If 
germanium types are used then change the value 
of V3 in line 112 to 0.3. 

In addition, the following design constraints are 
required : 

1. Maximum ambient temperature, in degrees 
Celsius 

2. Supply voltage 

3. Quiescent collector current, in milliamperes 
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100 'TRANSISTOR BIASING (BIAS) 

101 CLS:PRINT" TRANSISTOR BIASING PARAMETERS" 

102 INPUT"SUPPLY VOLTAGE " ;V 

103 INPUT"COLLECTOR RESISTOR RC " ; RC 

104 INPUT"EMITTER RESISTOR RE " ; RE 

105 INPUT"FEEDBACK RESISTOR RF " ; RF 

106 INPUT"BASE RESISTOR RA " ; RA 

107 INPUT"BASE RESISTOR RB " ; RB 

108 INPUT"TRANSISTOR BETA (HFE) ";B 

109 INPUT"TRANSISTOR ICEO " ; 10 

110 V2=0.65 

111 R1=RA*RB/(RA+RB) 

112 V1=RB*V/{RA+RB) ; 

113 R=RC+RF 

114 RR=RE*R*I0/B+R1*(V-V2) 

115 Q=R1*RE*IO/B+R*(V1-V2+IO*R1/B) 

116 S=R1*RE*{1+1/B)+R1*R/B+RC*R1 

117 T=RE*R* (1+1/B) 

118 U={Q+RR)/(S+T) 

119 V3=V-RC*U 

120 PRINT : PRINT" IC ";U* 1000; "MA": PRINT" IB" ;U/B*1E6;"UA": 
PRINT"IE";B/{B-1}*U*1000;"MA" 

121 PRINT"VC0";V3; "VOLTS" 

122 END 
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Kig. 7-11. Listing for 
BIAS prugram. 
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TRANSISTOR BIASING PARAMETERS 



■+wce 



";T2 
T1 



SUPPLY VOLTAGE ? 9 
COLLECTOR RESISTOR RC ? 8.2E3 
EMITTER RESISTOR RE ? 1E3 
FEEDBACK RESISTOR RF ? 1E12 
BASE RESISTOR RA ? 390E3 . 
BASE RESISTOR RB ? 47E3 
TRANSISTOR BETA (HFE) ? 200 
TRANSISTOR ICEO ? 10E-6 



IC = .263525 MA ' 

IB = 1.31763 UA '• ..^ 

IE = .26485 MA .< - 

VCO = 6.83909 VOLTS 

Fig. 7-13. Results for Example 7-4. 

100 'TRANSISTOR COMMON EMITTER AMPLIFIER DESIGN 

101 CLS: PRINT, "COMMON EMITTER AMPLIFIER DESIGN" 

102 PRINT 

103 INPUT"MAXIMUM TRANSISTOR VCE " ;V1 

104 INPUT"MAXIMUM COLLECTOR CURRENT (IN MA) ";I1 

105 INPUT"MAXIMUM POWER DISSIPATION IN MW ";P1 

106 INPUT"MAXIMUM JUNCTION TEMP IN DEG . C 

107 IF T2>0 THEN 109 

108 INPUT"TRANSISTOR THERMAL RESISTANCE " 

109 INPUT"ICO IN UA ";I2 

110 12=12/100 

111 INPUT"HFE MIN, TYPICAL, MAX ";B1, 32,33 

112 V3=0.7 

113 INPUT"SUPPLy VOLTAGE ";V2 

114 INPUT"QUIESCENT COLLECTOR CURRENT IN MA 

115 INPUT"%VCC ACROSS EMITTER RESISTOR ";V5 

116 V5=V5*V2/100 

117 INPUT"AMBIENT TEMPERATURE IN DEG. C 

118 INPUT"MAX % CHANGE FOR IC " ; 14 

119 INPUT"HIE IN K-OHMS " ; Z3 

120 INPUT"LOW-FREQUENCY 3DB POINT IN HZ 

121 IF V2<.9*V1 THEN 123 

122 PRINT" SUPPLY VOLTAGE TOO HIGH 

123 IP I5<.4*11 THEN 125 

124 PRINT" COLLECTOR CURRENT TOO HIGH— 

125 IF V2*I5<.8*P1 THEN 127 

126 PRINT" POWER DISSIPATION TOO HIGH— 

127 IF V2*I5<.5*P1 THEN 129 

128 PRINT" USE A HEAT SINK " 

129 IF T2<=0 THEN 131 

130 Tl=(T2-25)/P1 --.r. - .'. i ,:::0. 

131 IF T3+V2*I5*T1<T2 THEN 133 

132 PRINT" JUNCTION TEMP TOO HIGH 

133 R4=V5/I5 

134 R3={V2-V5)/(2*I5) ' ' '' '^' ''''- 

135 I3=l2*(2r ({T3-25)/10)-1) 

136 S1=I4*I5/(100*I3) 

137 S3=(B3+1)*B1*S1*I3/(I5*(B3-B1)) 

138 S2=S1*S3/{S1+S3) 

139 R5={1+B2)*(S2-1)*R4/(B2 + 1-S2) . ,^,,, 

140 R1=R5*V2/(V5+V3) , 

141 R2=V2*R5/(V2-V5-V3) '" ' ' '" " 

142 Z1=R5*Z3/{R5+Z3) 




Fig, 7-14. Common -emitter amplifier circuit. 
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Fig. 7-15. Listing for TRANSAMP program. 



Continued on next page. 
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143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
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169 



R4=R4*100a 

PI=3, 1415927 

C1=5E3/(PI*F1*Z1) 

C2=5E6/(PI*R4*F1) 

C3=5E3/(PI*F1*R3) 

A1=B2*R3/Z3 

A2=A1*A1+Z3/R3 

A3=1 0*LOG (A2) /LOG (10) 

CLS:PRINT"DESIGN SPECS:" ■ •"•: 

PRINT"R1 =" ; INT (Rl * 1 00+ . 5) /I 00 ; "K-OHMS" 
=";INT(R2*100+.5)/100;"K-OHMS" 
=";INT(R3*l00+.5)/100;"K-OHMS" 
=";R4;"0HMS" 

=";INT(C1*10+.5)/10;"UF" 
=";INT(C2*10+.5)/10;"UF" 
= " ; INT (C3 * 1 0+ . 5 ) /I ; "UF" 
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PRINT"R2 

PRINT"R3 

PRINT"R4 

PRINT "CI 

PRINT"C2 

PRINT"C3 

V4=.35* (V2-V5) 

V6=V4/A1 

PRINT"AV =";A1 

PRINT"AP =";A2;" " ; INT (A3*1 Q+. 5) /I 0; " DB" 

PRINT" ZIN =";INT(Z1*100+.5)/100;"K-OHMS" 

PRINT" ZOUT =" ; INT (R3* 1 00+ . 5) /I 00 ; "K-OHMS" 

PRINT"VIN MAX =" ; INT (V6* 1 000+. 5) /I 000 

PRINT"VOUT MAX " ; INT (V4* 1 000 + . 5 ) /I 000 

PRINT: INPUT"DO YOU WANT TO CHANGE PARAMETERS 

IF ZZ$="YES" THEN 114 

PRINT: END ,. . 
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(YES/NO) ";ZZ$ 



Fig. 7-15 (cont). Listing for TRANSAMP program. 



4. Percentage of the supply voltage across emit- 
ter resistor R4 

5. Maximum percentage change for the collec- 
tor current 

6. Low-frequency 3-dB point 

When executed, the program determines the 
value for the four resistors and three capacitors, 
the ac voltage and power gains, the input and 
output impedances, and the maximum input and 
output voltages of the amplifier. 

Example 7-5 

For the circuit of Fig. 7-14, design a common- 
emitter amplifier operating from a 9-volt supply 
with a minimum input frequency of 50 Hz. For a 
particular transistor, the parameters are: 
Maximum Vci:] = 45 volts 
Maximum collector current = 30 mA 
Maximum power dissipation — 300 mW 
Maximum junction temperature = 175 degrees 
Celsius 
U = 0.002 jLtA 

Minimum beta = 60 , • 

Typical beta = 150 - . - 

Maximum beta — 350 
hie = 5 kilohms -::■■-■> »<■ "■' 



In addition, the quiescent collector current is to 
be 2 mA, the collector current is to vary up to a 
maximum of 100%, and the maximum expected 
ambient temperature is 30 degrees centigrade. 

The computed output results are shown in Fig. 
7-16, giving the resultant circuit of Fig. 7-17. 

HEAT SINK DESIGN 

Selecting the proper heat sink is just as im- 
portant as the design of transistor or integrated 
circuits. Using the thermal model shown in Fig. 
7-18, the HEATSINK program of Fig. 7-19 de- 
termines the proper heat sink required when the 
following parameters are specified : 

1. Power dissipation of the device 

2. Maximum junction temperature 

3. Maximum ambient temperature 

4. Junction-case thermal resistance 

The maximum junction temperature and junc- 
tion-case thermal resistance are usually given in 
the data sheet for the particular device that you 
are using. In addition, the program requires the 
method in which the device is to be mounted to 
the heat sink, which is one of the following; 
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COMMON EMITTER AMPLIFIER DESIGN 

MAXIMUM TRANSISTOR VCE ? 45 

MAXIMUM COLLECTOR CURRENT (IN MA) ? 30 

MAXIMUM POWER DISSIPATION IN MW ? 300 

MAXIMUM JUNCTION TEMP IN DEC. C ? 175 

ICO IN UA ? .002 

HFE MIN, TYPICAL, MAX ? 60,150,350 , ', 

SUPPLY VOLTAGE ? 9 ' -, 

QUIESCENT COLLECTOR CURRENT IN MA ? 2 

%VCC ACROSS EMITTER RESISTOR ? 10 

AMBIENT TEMPERATURE IN DEC. C ? 30 

MAX % CHANGE FOR IC ? 100 

HIE IN K-OHMS ? 5 

LOW-FREQUENCY 3DB POINT IN HZ ? 50 



.■'.tu- 
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Fig. 7-16. Results for 
Example 7-5. 



DESIGN SPECS: 



R1 = 


349.06 K-OHMS 


R2 = 


75.47 K-OHMS 


R3 = 


2.0 3 K-OHMS 


R4 = 


450 OHMS 


CI = 


6.9 UF 


C2 = 


70.7 UF 


C3 = 


15.7 UF 


AV = 


60.75 


AP = 


3693.03 


ZIN = 


= 4.63 K-OHMS 


ZOUT 


= 2.0 3 K-OHMS 


VIN MAX = .047 


VOUT 


MAX 2.835 , 


DO YOU WANT TO CHA 


READY , , j^ 
> 



35.7 DB 
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Fig. 7-17. Final circuit for Example 7-5. 
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Dry with mica washer 

Grease with mica washer 

The program requires all temperatures to be 
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Fig. 7-18. Transistor heat sink, thermal modeL 



expressed in Celsius, and determines the maxi- 
mum thermal resistance of the required heat sink. 
As an alternative, the approximate volume of the 
heat sink may be calculated, using Fig. 7-20 as a 
guide for those who like to build their own, using 
aluminum. '■ ''-, Tj ' ■ 
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•heat sink design program (HEATSINK) 

CLS:PRINT,"HEAT SINK DESIGN" 

PRINT:PRINT"ALL TEMPERATURES ARE TO BE EXPRESSED IN DEGREES CENTIGRADE" 

PRINT: INPUT"REQUIRED POWER DISSIPATION (WATTS) ";P 

INPUT"MAXIMUM AMBIENT TEMPERATURE " ; TA ^ , ^ ^ _ 

INPUT"MAXIMUM JUNCTION TEMPERATURE " ; T J 

INPUT" JUNCTION-CASE THERMAL RESISTANCE (DEGREES/WATT) " ; JC 

PRINT:PRINT"SELECT TYPE OF MOUNTING:" 

PRINT" 1 . DRY" " . ' ■ , 

PRINT" 2. GREASE" ," ,. , " 

PRINT" 3. DRY WITH MICA WASHER" 

INPUT" 4. GREASE WITH MICA WASHER ";M ^ - ,, 

ON M GOTO 113 ,114 ,115 ,116 

RC=0.25:T$="DRY":GOTO 117 

RC=0.1 :T$="GREASE":GOTO 117 " "' 

RC=0.8:T$="DRY WITH MICA WASHER":GOTO 117 

RC=0.4:T$="GREASE WITH MICA WASHER" 

TS=TJ-P* (RC+JC) 

RJ=(TJ-TA)/P 

RS=RJ- (JC+RC) ' , 

TC=RC*P+TS:TJ= (RC+JC) *P+TS " '" ; 

IF TS>55 THEN 122 ELSE 125 

TS=55:RS=(TS-TA)/P:TC=RC*P+TS:TJ= (RC+JC) *P+TS 

PRINT: INPUT"DO YOU WANT TO KNOW THE APPROXIMATE SINK VOLUME REQUIRED ";A$ 

IF A$="YES" THEN 127 

GOSUB 132 ^, _ 

GOTO 130 . t ^ 

V=46.155*RS+ (-1.52145) :V=INT(V*100+.5)/100 ^^ ' ' 

GOSUB 132 

PRINT"APPROXIMATE HEAT SINK VOLUME REQUIRED =";V;"CU IN" 

PRINT"REQUIRED HEAT SINK THERMAL RESISTANCE =" ; RS ; "C/WATT OR LESS" 

PRINT: END 

CLS : PRINTTAB (29)" RESULTS" 

PRINT:PRINT"USING " ; T? ; " CASE-SINK MOUNTING : " 

PRINT:PRINT"MAXIMUM AMBIENT TEMPERATURE =";TA;"C" 

PRINT"MAXIMUM JUNCTION TEMPERATURE =";TJ;"C" 

PRINT"HEAT SINK TEMPERATURE =";TS;"C" 

PRINT"CASE-SINK TEMPERATURE =";TC;"C" 

PRINT"POWER DISSIPATION =";P; "WATTS" 

RETURN 
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Fig. 7-19. Listing for HEATSINK program. 






Example 7-6 

Determine the proper heat sink for a transistor 
that has the following electrical characteristics: 

1. Dissipates 10 watts 

2. Maximum junction temperature = 135 de- 
grees Celsius 

3. Junction-case resistance = 6.2 degrees/watt 

In addition, the maximum expected ambient tem- 
perature is 30 degrees, and the transistor is to be 
mounted with a mica washer with grease. 

As shown in Fig. 7-21, the heat sink should have 
a thermal resistance of 2.5 degrees/watt or less, 
and which should have an approximate minimum 
volume of 11.45 in^. ■ : i 




Fig. 7-20. Heat sink diagram. 






Solid-State Devices 

heat sink design 

all temperatures are to be expressed in degrees centigrade 

required power dissipation {watts) ? 10 

maximum ambient temperature ? 30 

maximum junction temperature ? 135 

junction-case thermal resistance (degrees a^att) ? 6.2 

select type of mounting: 

1. DRY 

2. GREASE ,, 

3. DRY WITH MICA WASHER * ''= " '* ' '^ ■■'''' *.^,--''' 

4. GREASE WITH MICA WASHER ? 4 
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DO YOU WANT TO KNOW THE APPROXIMATE SINK VOLUME REQUIRED ? YES 



RESULTS "■' .... .-. 

USING GREASE WITH MICA WASHER CASE-SINK MOUNTING: 

MAXIMUM AMBIENT TEMPERATURE = 30 C ' *"'- ' *" ' ' ■ 'K ■ 

MAXIMUM JUNCTION TEMPERATURE = 1 21 C 

HEAT SINK TEMPERATURE = 55 C 

CASE-SINK TEMPERATURE = 59 C ..,.-, 

POWER DISSIPATION = 10 WATTS 

APPROXIMATE HEAT SINK VOLUME REQUIRED = 11.45 CU IN 

REQUIRED HEAT SINK THERMAL RESISTT-.NCE =2.5 C/WATT OR LESS 
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Fig. 7-21. Results for Example 7-6. 
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This final chapter presents several mathemati- 
cal routines which aid the solution of a number of 
circuit problems. Included are the four-quadrant 
arctangent function, mathematical operations on 
complex numbers, and the minimum and maxi- 
mum and maximum value of an array. . ' 

FOUR-QUADRANT ARCTANGENT 
FUNCTION 

Although Level II contains the arctangent func- 
tion ATN (Z), it is only valid for those arguments 
between -7r/2 (-90 degrees) and +7t/2 (+90 de- 
grees). As an example, if the argument Z is ex- 
pressed as the ratio of Y and X coordinates, such 
that Z = Y/X, then ATN (Y/X) will yield correct 
results as long as X is greater than zero (ie., first 
or fourth quadrant) . If X is negative, ATN (Y/X) 
will still return a result that is between —1.57080 
and 4-1.57080, which is in error, since the point 
actually lies in either the second or third quadrant. 



The ARCTAN subroutine listed in Fig. 8-1 de- 
termines the four-quadrant arctangent of the two 
variables X and Y and returns the answer ex- 
pressed either in degrees or radians using the 
variables AD and AR, respectively, as shown by 
the simple main program of Fig. 8-2. As will be 
discussed in the next section, the ARCTAN sub- 
routine is necessary when converting rectangular 
coordinate, or complex numbers to their exponen- 
tial or polar equivalents. 

Example 8-1 

Using the main program of Fig. 8-2, determine 
the arctangent in degrees and radians for the fol- 
lowing X-Y coordinates : ' -■-'■■■■ 



X 


Y 


a 


V,. S- 


2 


-5 


-2 


5 


-2 


-5 



6000 ' 4-QUADRANT ARCTANGENT SUBROUTINE (ARCTAN) 

6001 ' INPUTS: X AND Y 

6002 ' OUTPUTS: AR = ARCTAN IN RADIANS; AD = ARCTAN IN DEGREES 

6003 IF Y=a THEN 6004 ELSE 6007 

6004 IF X<0 THEN 6005 ELSE 6006 

6005 AR=-3. 1415927:GOTO 6017 

6006 AR=0:GOTO 6017 "^' 

6007 IF X>0 THEN 6008 ELSE 6010 

6008 IF YOO THEN 6009 ELSE 6003 . . . 

6009 AR=ATN (Y/X) : GOTO 6017 

6010 IF X=0 THEN 6011 ELSE 6014 ' , 

6011 IP Y<0 THEN 6012 ELSE 6013 '' ' 

6012 AR=-1 .5707963:GOTO 6017 

6013 AR=1 .5707963:GOTO 6017 

6014 IF X<0 THEN 6015 ELSE 6017 

6015 IF YOO THEN 6016 ELSE 6003 

6016 AR=3. 1415927+ATN(Y/X) 

6017 AD=AR*57.2957795:RETURN 



Fig. 8-1. Listing for ARCTAN subroutine. 
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100 'MAIN PROGRAM FOR ARCTRN 

101 CLS:INPUT"VALUE FOR X ";X 

102 INPUT"VALUE FOR Y ";Y 

103 GOSUB 6000 'ARCTAN SUBROUTINE 

104 PRINT" THEN ATN(Y/X) :" 

105 PRINT" ";AR; "RADIANS" 

106 PRINT" "; AD; "DEGREES" 

107 PRINT: INPUT"HIT <ENTER> TO CONTINUE " ; Z9 

108 GOTO 101 

109 END 



Fig. 8-2. Simple main proRram 
for ARCTAN. 



Fig. 8-3 gives the computer results. 

COMPLEX NUMBER MATH 

The ability to perform arithmetic operations 
with complex numbers in either rectangular or 
polar form can make any resulting computations 
easier. The CPLXMATH program shown in Fig. 
8-4 will: 

1. Convert a number from rectangular to polar 
form 

2. Convert a number from polar to rectangular 
form 

3. Add two complex numbers 



VALUE FOR X ? 2 

VALUE FOR Y ? 5 

THEN ATNCY/X) : 

1.19029 RADIANS 
68.1986 DEGREES 



-/- ji 



HIT <ENTER> TO CONTINUE ? 

VALUE FOR X ? 2 

VALUE FOR Y ? -5 

THEN ATN(Y/X) : 

-1 .19029 RADIANS 

-68.1986 DEGREES 

HIT <ENTER> TO CONTINUE ? 

VALUE FOR X ? -2 

VALUE FOR Y ? 5 

THEN ATN(Y/X) : 

1.9513 RADIANS 
111.801 DEGREES 

HIT <ENTER> TO CONTINUE ? 

VALUE FOR X ? -2 

VALUE FOR Y ? -5 

THEN ATN(Y/X) : 

4.33188 RADIANS 
248.199 DEGREES 



HIT <ENTER> TO CONTINUE ? 

Fig. 8-3. Results for Example 8-1. 
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" 4. Subtract two complex numbers 

5. Multiply two complex numbers 

6. Divide one complex number by another 

By choosing either addition, subtraction, multi- 
plication, or division, the program allows both 
numbers to be expressed in any combination of 
forms. In addition, the resulting answer can be 
chosen to be expressed in rectangular, or polar 
form, or both. ,, , 'ju\y,.> 

Example S-2 

Convert the complex number 5 — j3 to its equiv- 
alent polar form. 

As shown in Fig. 8-5, the equivalent polar form 
has a magnitude of 5.831 and an angle of —31 
degrees. 



Example 8-3 



ij . 



y::.<. 



Convert to rectangular form the polar number 
that has a magnitude of 6.92 and an angle of 56.1 
degrees. 

As shown in Fig. 8-6, the equivalent complex 
number in rectangular form is 3.86 -I- J5.744. 

Example 8-4 

Divide the number "A", 5 - j3, by the number 
"B", having a magnitude of 6.92 and an angle of 
56,1 degrees, and express the answer in both rec- 
tangular and polar form. 

As shown in Fig. 8-7, we enter the number "3" 
when asked to select the forms of the two num- 
bers, as A and B are in rectangular and polar 
forms, respectively. 
\ ' ■" . 
MINIMUM AND MAXIMUM 
VALUES OF AN ARRAY 

The MINMAX subroutine of Fig. 8-8 deter- 
mines the minimum and maximum values of the 
array X(I). This routine is used in many of the 
plotting routines of Chapter 2, the DAMPED pro- 
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100 

101 
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110 

111 

112 

113 

114 

115 
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119 

120 
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123 

124 
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127 

128 
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131 

132 

133 

134 
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136 
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151 

152 

153 
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" , "RECTANGULAR" , "RECTANGULAR" 
", "POLAR" /'POLAR" 



PRINT" 4 
I13PUT" 



V 






?:>' 
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' COMPLEX ARITHMETIC PROGRAM (CPLXMATH) 

CLEAR , , , ■ 

T=57. 2957795 

CLS:PRINT"CHOOSE MATHEMATICAL OPERATION TO BE PERFORMED:' 
PRINT:PRINT"1 . RECTANGULAR TO POLAR FOR A SINGLE NUMBER" 
PRINT" 2. POLAR TO RECTANGULAR FOR A SINGLE NUMBER" 
PRINT"3. ADDITION OF TWO NUMBERS (A + B) " 
PRINT" 4. SUBTRACTION OF TWO NUMBERS (A - B) " 
PRINT"5. MULTIPLICATION OF TWO NUMBERS (A*B) " 
INPUT"6, DIVISION OF TWO NUMBERS (A/B) CHOICE 
IF J<3 THEN 123 ELSE 111 

CLS: PRINT "SELECT INPUT FORMS FOR THE TWO VARIABLES" 
PRINT: PRINT , "A" , "B" 
PRINT" 1 
PRINT" 2 

PRINT" 3 . " , "RECTANGULAR" , "POLAR" 
", "POLAR", "RECTANGULAR" ; 

IF J<3 THEN 123 ELSE 119 

CLS:PRINT"PRINT THE ANSWER IN:" 

PRINT: PRINT" 1 . RECTANGULAR FORM" 

PRINT"2, POLAR FORM" 

INPUT" 3. BOTH FORMS ";K 

CLS:PRINT"ENTER:":GOSUB 175 j .:■ 

IF J=1 THEN 1=1 

IF J=2 THEN 1=2 

ON I GOTO 127 ,128 ,129 ,130 

AR=A1 :AI=A2:BR=Bl :BI=B2:G0T0 131 

AM=A1:AA=A2:BM=B1 :BA=B2:G0T0 131 

AR=A1:AI=A2:BM=B1 :BA=B2:G0T0 131 

AM=A1 :AA=A2:BR=Bl :BI=B2 

ON I GOTO 132 , 138 , 135 , 132 

BM=SQRtBRt2+BI+2) :Y=BI:X=BR:GOSUB 187 

BA=ZD 

IF 1=4 GOTO 139 

AM=SQR(AR+2+AI'f2) : Y=AI:X=AR:GOSUB 187 

AA=ZD 

IF I03 GOTO 140 

BR=BM*COS (BA/T) : BI=BM*SIN (BA/T) 

AR=AM*COS(AA/T) : AI=AM*SIN (AA/T) 

ON J GOTO 145 ,145 ,141 ,142 ,143 ,144 

CR=AR+BR:CI=AI+BI:GOTO 145 

CR=AR-BR:CI=AI-BI:GOTO 145 

CM=AM*BM:CA=AA+BA:GOTO 145 

CM=AM/BM:CA=AA-BA 

ON J GOTO 151 ,151 ,146 ,146 ,149 ,149 

ON K GOTO 151 ,147 ,147 

CM=SQR(CR-f2+CI-f2) :X=CR: Y=CI:GOSUB 187 " '• ' ' 

CA= ZD 

ON K GOTO 150 ,154 ,150 

CR=CM*COS(CA/T) :CI=CM*SIN (CA/T) 

AR=INT(AR*1000+.5)/1000:AI=INT(AI*1000+.5)/10aO 

CR=INT(CR*1000+.5)/1000:CI=INT(CI*1000+.5)/1000 

AM=INT(AM*100a+.5)/1000:AA=INT(AA*10+.5)/10 

CM=INT(CM*1000+.5)/100a:CA=INT(CA*10+.5)/10 

ON J GOTO 156 ,158 ,160 ,166 ,167 ,173 

PRINT:PRINT"THEN:":PRINT 

PRINTAR;"+ J(";AI;") = ";AM;"/ (" ;AA; " ) " :GOTO 174 

PRINT:PRINT"THEN: ": PRINT 

PRINTAM;"/ (";AA;") = ";AR;"+ J (" ; AI ; " ) " iGOTO 174 

C$="+":PRINT:PRINT"THEN:":PRINT:IF K-2 <0 THEN 16t 

Fig. 8-4. Listing for CPLXMATH program. 
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ELSE 162 



Continued on next fctge. 
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161 PRINT-A ";C$;" B = ";CR;"+ J(" ;CI; ") " :GOTO 174 . ^.^^^^ . ,.,». - . 

162 IF K-2=0 THEN 163 ELSE 164 ' '' " * '"' ' '. . 

163 PRINT"A ";C$;" B = ";CM;"/ (" ;CA; ") " :GOTO 174 ,^,. ,.^ . 7^ ' ;' 

164 PRINT"A ";C$;" B = ";CR;''+ J(";CI;")" 

165 PRINT" = ";CH;"/ (" ;CA; ") " :GOT0 174 

166 C$="-":PRINT:PRINT"THEN:":PRINT:IF K-2<0 THEN 161 ELSE 162 

167 C$="*":PRINT:PRINT''THEN:":PRINT:IF K-2<0 THEN 168 ELSE 169 

168 PRINT''A ";C$;" B = ";CR;" + J (";CI; ") " :GOTO 174 

169 IF K-2=0 THEN 170 ELSE 171 

170 PRINT-A ";C$;" B = ";CM;"/ (" ;CA; " ) " :GOTO 174 

171 PRINT-A ";C$;" B = ";CR;" + J(";CI;")" 

172 PRINT" = ";CM;"/ (" ;CA; ") " :GOTO 174 

173 C$="/":PRINT:PRINT"THEN:'':PRINT:IF K-2<0 THEN 168 ELSE 169 .^ 

174 PRINT: PRINT: END 

175 'INPUT SUBROUTINE ^. 

176 IF J=1 THEN 179 ELSE 177 

177 IF J=2 THEN 182 ELSE 178 

178 IF 1=1 OR 1=3 THEN 179 ELSE 182 

179 PRINT: INPUT"REAL PART (A) " ;A1 : INPUT"IMAGINARY PART (A) ";A2 

180 IF J=1 OR J=2 THEN 181 ELSE 184 

181 RETURN 

182 PRINT: INPUT"MAGNITUDE (A) ";A1 : INPUT"ANGLE (A) ";A2 
133 IF J=1 OR J=2 THEN RETURN 

184 IF 1=1 OR 1=4 THEN 185 ELSE 186 

185 INPUT"REAL PART (B) " ; Bl : INPUT"IMAGINARY PART (B) ";B2:RETURN 

186 INPUT "MAGNITUDE (B) ";B1 :INPUT"ANGLE (B) ";B2:RETURN 

187 ' 4-QUADRANT ARCTANGENT SUBROUTINE (ARCTAN) 

188 IF ABS(Y)<1E-4 THEN Y=0 

189 IF ABS(X)<1E-4 THEN X=0 

190 AU=Y/X 

191 IF ABS(AU)<lE-4 THEN AU=0 

192 IF Y=0 THEN 193 ELSE 196 

193 IF X<0 THEN 194 ELSE 195 ' '/ ■ ' 

194 ZR=-3.1415927:GOTO 206 •.;:<!- 

195 ZR=0:GOTO 206 

196 IF X>0 THEN 197 ELSE 199 

197 IF YOO THEN 198 ELSE 192 

198 ZR=ATN(AU) :GOTO 206 

199 IF X=0 THEN 200 ELSE 203 

200 IF Y<0 THEN 201 ELSE 202 

201 ZR=-1 ,5707963 iGOTO 206 . . 

202 ZR=1 .5707963:GOTO 206 '" '' 

203 IF X<0 THEN 204 ELSE 206 

204 IF YOO THEN 205 ELSE 192 .^. V. _ 

205 ZR=3.1415927+ATN(AU) " ^ '' ' '' ' ' 

206 ZD=ZR*57.2957795:RETURN 

? ^ ' ''^ ' . 

. , Fig. 8-4 (cont). Listing for CPLXMATH program. 
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Pig. 8-5. Results for 
Example 8-2. 



CHOOSE MATHEMATICAL OPERATION TO BE PERFORMED: 

1 . RECTANGULAR TO POLAR FOR A SINGLE NUMBER 

2. POLAR TO RECTANGULAR FOR A SINGLE NUMBER 

3. ADDITION OF TWO NUMBERS {A + B) ... ■ '■ 

4. SUBTRACTION OF TVIO NUMBERS {A - B) 

5. MULTIPLICATION OF TWO NUMBERS (A*B} 

6. DIVISION OF TWO NUMBERS (A/B) ? 1 

ENTER: 

REAL PART (A) ? 5 
IMAGINARY PART (A) ? -3 

THEN: ,1 . 

5 + J{-3 ) = 5.831 / (-31 ) 

READY 
> 



r- ' ; 






Fig. 8-6. Results for 
Example 8-3. 



CHOOSE MATHEMATICAL OPERATION TO BE PERFORMED 

1 . RECTANGULAR TO POLAR FOR A SINGLE NUMBER 

2. POLAR TO RECTANGULAR FOR A SINGLE NUMBER 

3. ADDITION OF TWO NUMBERS {A + B) 

4. SUBTRACTION OF TWO NUMBERS (A - B) 

5. MULTIPLICATION OF TWO NUMBERS (A*B) 

6. DIVISION OF TWO NUMBERS (A/B) ? 2 

ENTER: 

MAGNITUDE (A) ? 6.92 I' ■ ! -■ ■ ■ 
ANGLE (A) ? 56.1 

THEN: :l^ . „j - -. V. :. ~ , , . . 

6.92 / ( 56.1 ) = 3.86 + J( 5.744 ) :^ . 

READY 
> 
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Fig. 8-7. Results for 
Example 8-4. 



CHOOSE MATHEMATICAL OPERATION TO BE PERFORMED: 



1 . RECTANGULAR TO POLAR FOR A SINGLE NUMBER 

2. POLAR TO RECTANGULAR FOR A SINGLE NUMBER 

3. ADDITION OF TWO NUMBERS (A + B) 

4. SUBTRACTION OF TWO NUMBERS (A - B) ^* 

5. MULTIPLICATION OF TWO NUMBERS (A*B) 

6. DIVISION OF TWO NUMBERS (A/B) ? 6 
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SELECT INPUT FORMS FOR THE TWO VARIABLES 
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1 . 
2. 

3. 
4. 



RECTANGULAR 
POLAR 

RECTANGULAR 
POLAR 



B 

RECTANGULAR 

POLAR 

POLAR 

RECTANGULAR 
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PRINT THE ANSWER IN: 



1 . RECTANGULAR FORM • " _' / 

2. POLAR FORM ■ ^ ■ U.' ' 

3. BOTH FORMS ? 3 ' :< ~r 

- "(■' 

ENTER: ■ "« 

REAL PART (A) ? 5 
IMAGINARY PART (A) ? -3 
MAGNITUDE (B) ? 6.92 
ANGLE (B) ? 56.1 

THEN: 

A / B = .043 + J(-.a42 ) 
= .843 / {-87.1 ) 

READY 
> 



gram of Chapter 3, and the DSTATS program of 
Chapter 4. The required input variables are the 
array and its length N. When control returns to 
the main program, the minimum and maximum 
values are found in the variables XI and X2, re- 
spectively. 



Fig. 8-7 (cont). Results for 
Example S-4. 



Example 8-5 

Using the simple main program of Fig. 8-9, 
determine the minimum and maximum values of 
the values listed in Table 2-1. 

The resulting output is shown in Fig. 8-10. 



7000 'MINIMUM AND MAXIMUM VALUES OF AN ARRAY (MINMAX 

7001 'X(I) = INPUT POINTS 

7002 'N = LENGTH OF THE ARRAY 

7003 'XI = MINIMUM VALUE X2 = MAXIMUM VALUE ' '^ 

7004 X1=XC1) :X2=X(1 ) 

7005 FOR 1=2 TO N 

7006 IF CX1-X(I))<=0 THEN 7008 ELSE 7007 

7007 X1=X(I):G0T0 7010 

7008 IF {X2-X(I))<0 THEN 7009 ELSE 7010 

7009 X2=X(I) 

7010 NEXT I 

7011 RETURN 



Fig. 8-8. Listing for 
MINMAX subroutine. 



100 'MAIN PROGRAM FOR MINMAX 

101 DIM X(100) 

102 CLS:INPUT"LENGTH OF THE ARRAY ";N 

103 FOR 1=1 TO N 

104 PRINT"VALUE #";!; .-, 

105 INPUT X(I) ._■-:■,,-■ .J 

106 NEXT I 

107 GOSUB 7000 'MINMAX SUBROUTINE 

108 PRINT:PRINT"MINIMUM VALUE = ";X1 

109 PRINT"MAXIMUM VALUE = ";X2 

1 1 END 



Fig. 8-9. Simple main program 
for MINMAX. 
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LENGTH OP THE ARRAY 
VALUE # 1 ? 92 



14 



VALUE 


# 


2 


? 94 




VALUE 


# 


3 


? 96 




VALUE 


# 


4 


? 99 




VALUE 


# 


5 


? 101 




VALUE 


# 


6 


? 104 




VALUE 


# 


7 


? 110 




VALUE 


# 


a 


? 90 




VALUE 


# 


9 


? 93 




VALUE 


# 


10 


? 95 




VALUE 


# 


11 


? 98 




VALUE 


# 


12 


? 100 




VALUE 


# 


13 


? 103 


t 


VALUE 


# 


14 


? 106 




MINIMUM 


VALUE = 


90 


MAXIMUM 


VALUE = 


110 


READY 










> 











Fig. 8-10. Results for Example S-5. 
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Programs and Subroutines 



This appendix lists all the programs and subroutines discussed in this 
book, along with the approximate memory required (in bytes). 



Name Memory 



ARCTAN 


600 


ATTNPADl 


1400 


ATTNPAD2 


2600 


BIAS 


700 


BNDPASSl 


2800 


BNDPASS2 


2400 


CPLXMATH 


3400 


CPLXSEQ 


4700 


DAMPED 


3500 


DFTRANS 


7300 


DSTATS 


1500 


FSERIES 


3800 


HEATSINK 


1500 


ILAPLACE 


2200 


LCPADl 


700 


LCPAD2 


1200 


LCPSPADl 


1700 


LCPSPAD2 


2800 


LINEPLOT 


2100 


LOGLOG 


3400 


LPHP 


9800 


MINMAX 


1000 


MLREGRES 


6100 


NOTCH 


2700 


PCARTXY 


1600 


PHISTGM 


1600 


PLYROOTS 


2900 


POLARPLT 


2400 


PSEMILOG 


2500 


REGRESSN 


9900 



Description 

Four-quadrant arctangent function 

Resistive attenuator pads without graphics 

Resistive attenuator pads with graphics 

Analysis of generalized bias network 

Bandpass filter design for Q less than 10 

Bandpass filter design for Q less than 50 

Complex number mathematics 

Solution of simultaneous equations with complex co- 
efficients 

Damped oscillation waveform analysis 

Discrete fast Fourier transform 

Descriptive statistics of a sample '= 

Fourier series ■ ' 

Heatsink selection and design 

Inverse Laplace transform of a transfer function 

Lossless L-C pads without graphics 

Lossless L-C pads with graphics 

Lossless Lf-C pads-phase shift without graphics 

Lossless L-C pads-phase shift with graphics 

Cartesian plotting of a continuous function — line 
printer 

Log-Log plotting — ^video display 

Design of low- and high-pass filters, second through 
sixth order 

Minimum and maximum value of an array 

Multiple linear regression 

Design of notch filters 

Cartesian plotting — video display 

Histogram — video display 

Real and complex roots of a polynomial 

Polar coordinate plotting — line printer 

Semilogarithmic plotting — video display 

Regression between two variables 
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Programs and Subroutines 



RMSAV 



2600 



SIMULEQ 


3100 


SVFILTER 


5200 


TEEPI 


1600 


TIMER555 


3200 


TRANSAMP 


1800 


TUNEDBP 


3500 


VPOLAR 


2100 


XLOGPLOT 


1800 


ZENER 


700 



RMS and average value for discrete data points or 
function 

Solution of simultaneous equations with real coeffi- 
cients 

Design of state-variable filters 

Tee-Pi (Y-Delta) transformation 

555 timer monostable and astable multivibrators 

Design of common-emitter amplifier 

Design of staggered-tuned bandpass filters 

Polar coordinate plotting — video display 

Semilogarithmic plotting — line printer 

Zener diode regulator design 
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Standard Resistor and Capacitor Values 



RESISTORS 

1. The following ±5% standard decade values are available. Those 
marked with * are the ones most readily available from electronic suppliers. 



1.0* 

1.1 

1.2* 

1.3 

1.5* 

1.6 



1.8* 

2.0 

2.2* 

2.4 

2.7* 
3.0 



3.3* 
3.6 
3.9* 
4.3 

4.7* 
5.1 



5.6* 
6.2 

6.8* 
7.5 
8.2* 
9.1 



To obtain standard resistance values, multiply preferred number from 
decade table by powers of 10. Standard values are available from lOO to 
22 Mn. ' '. " . 

2. The following ±1% values are available, but at a higher cost. 



10.0 


12.1 


14.7 


17.8 


21.5 


26.1 


31.6 


38.3 


46.4 


56.2 


68.1 


82.5 


10.2 


12.4 


15.0 


18.2 


22.1 


26.7 


32.4 


39.2 


47.5 


57.6 


69.8 


84.5 


10.5 


12.7 


15.4 


l^J-.7 


22.6 


27.4 


33.2 


40.2 


48.7 


59.0 


71.5 


86.6 


10.7 


13.0 


15.8 


19.1 


23.2 


28.0 


34.0 


41.2 


49.9 


60.4 


73.2 


88.7 


11.0 


13.3 


16.2 


19.6 


23.7 


28.7 


34.8 


42.2 


51.1 


61.9 


75.0 


90.0 


11.3 


13.7 


16.5 


20.0 


24.3 


29.4 


35.7 


43.2 


52.3 


63.4 


76.8 


93.1 


11.5 


14,0 


16.9 


20.5 


24.9 


30.1 


36.5 


44.2 


53.6 


64.9 


78.7 


95.3 


11.8 


14.3 


17.4 


21.0 


25.5 


30.9 


37.4 


45.3 


54.9 


66.5 


80.6 


97.6 


These standard values are available from lon to 22.1 MO. 














CAPACITORS 




' 


■-■ 





In general, capacitor values follow the standard decade values for ±10% 
resistors. The values listed below are in microfarads, and those marked 
with * are the ones most readily available from electronic suppliers. 



.001* 


.0033* 


.01* 


.033* 


.1* 


.33* 


.0012 


.0039 


.012 


.039 


.12 


.39 


.0015 


.0047* 


.015 


.047* 


.15 


.47* 


.0018 


.005 


.018 


.05 


.18 


.5 


.002 


.0056 


.02 


.056 


.2 


.56 


.0022* 


.0068* 


.022* 


.068* 


.22* 


.68* 


.0025 


.0075 


.025 


.075 


.25 


.75 


.0027 


.0082 


.027 


.082 


.27 


.82 
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Index 



Active filters, 15 ^ - 1 1 * 

Ambient temperature, 49 

Analysis, damped oscillations, 41-42 

Aperiodic waveforms, 33 

Arctangent function, four-quadrant, 125 

Arithmetic mean, 58 

Array (s) 

maximum values, 126, 130 

minimum values, 126, 130 '" 

variable, 18 
Astable, H4 
Asymmetry, 58 

Average values of waveform, 34-36 
Axes, 9 

B 

Bandpass 

filter, 99, 103 

staggered-tuned Butterworth, 107 
Bar graph, 9 
Bessel, 87 
Beta, 116 

Bipolar transistor, 116 
Bode plots, 15 
Butterworth 

bandpass filters, staggered-tuned, 107 

polynomials, 63 



Cartesian plots, 11-14, 19 

Cascading, 110 

Center frequency, 110 

Chebyshev polynomials, 63 „. 

Circuit, multivibrator, 114 

Complex number math, 126 

Continuous mathematical functions, 12 

Cosine, 36 

Current(s) ., ^. . . , . ' 

gain, 49 

leakage, 116 

loop, 75 
Curves, least squares regression, 49, 50, 56, 58 
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D 

Damped oscillations, analysis, 41-42 
Data points, discrete, 12 
Delta-Wye transform, 75 
Design, 555 timer, 114 
Diagram, scatter, 49 
Discrete data points, 12 
Duty cycle, 114 



Exponential, 50 



Filter(s) , 

active, 15 ... ^ 

bandpass, 99, 103 

high-pass, 87 

low-pass, 87 

notch, 108-110 , , ( 

passive, 15 . • . . > 

Sallen-Key, 87 

second-order, low-pass, 19 

staggered -tuned Butterworth bandpass, 107 

state-variable, 87, 96, 99, 107 

wideband, 110 
655 timer design, 114 
Four-quadrant arctangent function, 125 
Fourier, 14 

series, 36-39 < 

transform, 39-41 
Frequency, 49 

center, 110 
Function (s) 

continuous mathematical, 12 

four-quadrant arctangent, 125 
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Gain, passband, 96 
Geometric, 50 
Graph, 9 
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H-pads, 70 

Heat sink design, 120-122 
High-pass filters, 87 
Histograms, 9-11 



t 



H 



Impedance, 49 

matching pads, 68-75 
Inverse, 50 

Laplace transform, 63-68 



Junction temperature, 122 



Kirchhoff's 
current law, 81 
voltage law, 81 

Kurtosis, 68 



K 
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R 



Laplace transform, inverse, 63-68 
Leakage current, 116 

Least squares regression curves, 49, 50, 56, 58 
Line 
printer 

plottingwith, 19, 21 
using, 7 
Log-log plots, 17 
Loop currents, 75 
Lossless pads, 73-75 
Low-pass filters, 19, 87 

M 

Magnitude, 15 

Fourier series, 36 
Matching pads, impedance, 68-75 
Math, complex number, 126 
Mathematical functions, continuous, 12 
Maximum values of array, 126, 130 
Merging program with subroutine, 8 
Mesh current network analysis, 75-83 
Minimum values of array, 126, 130 
Monostable, 114 
Multivibrator circuit, 114 

N 

Network analysis, mesh current, 75-83 
Nonrepetitive waveforms, 33 
Notch filter, 108-110 
Nyquist plots, 17 



0-pads, 70 

Oscillator, voltage controlled, 41 

Output voltage, quiescent, 116 



Pads 

impedance matching, 68-75 

lossless, 73-75 

resistance, 70 
Passband gain, 96 
Passive filters, 15 
Periodic waveforms, 33 .A 

Phase 

angle, 36 

Fourier series, 36 

-locked loop, 41 

responses, 15 
Pi 

-networks, 70 

-tee transform, 75 
Plot(s) 

Bode, 15 

cartesian, 11-14 

driver program, 11 

log- log, 17 

Nyquist, 17 

polar, 17, 19, 21 

semilogarithmic, 14-17 
Plotting with line printer, 19, 21 
Points, discrete data, 12 
Polar plots, 17, 19, 21 
Polynomial { s ) , 50 • 

Butterworth, 63 

Chebyshev, 63 

roots, 63 

Q 

Quiescent output voltage, 116 
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Radians, 14 

Regression curves, least squares, 49, 50, 56, 58 

REGRESSN program, 49 

Relationship between variables, 49, 50, 56, 58 

Resistance 

pads, 70 

thermal, 121 
Rms values of waveform, 34-36 
Roots of polynomials, 63 



Sallen-Key filter, 87 
Sample statistics, 58 
Scatter diagram, 49 
Second-order 

function, 15 

low-pass filter, 19 
Semilogarithmic plots, 14-17, 19 , . , 

Simpson's rule, 34 
Skewness, 58 ^, , 

Spectrum plot, 41 

Staggered-tuned Butterworth bandpass filters, 107 
Standard deviation, 58 

State-variablefllter, 87, 96, 99, 107 ' '" , 

Statistics, sample, 58 
Subroutine, merging with program, 8 



T-networks, 70 
Temperature 

ambient, 49 

junction, 122 
Thermal resistance, 121 
Timer design, 555, 114 
Triangle waves, 39 
Transform 

Delta-Wye, 75 

inverse Laplace, 63-68 

Pi-Tee, 75 
Transient response, 12 
Transistor (s), 116-120 

operating point, 49 
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Unbalanced pads, 70 
Using line printer, 7 
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Variable (s) 
arrays, 13 

relationship between, 49, 50, 56, 58 
Variance, 58 
Voltage 

controlled oscillator, 41 

quiescent output, 116 

regulator design, zener diode, 113 
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Waveform (s) 

aperiodic, 33 

average values, 34-36 

nonrepetitive, 33 

periodic, 33 

rms values, 34-36 
Waves, triangle, 39 
Wideband filter, 110 



Z-scores, 68 

Zener diode voltage regulator design, 113 
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CIRCUIT 

DESIGN PROGRAMS 

FOR THE TRS-80^ 



There are a number of relatrvely inexpensive "personal-type" digital computers, such as Radio 
Shack's Model TRS-80, which can efficiently perform virtually any type of computation required 
for the design and analysis of eiectronic networks. Thus, this book presents a variety of usefui 
BASIC language programs that will greptly simplify the design and analysis of commonly 
encountered circuit probiems. -^ 

A variety of programs are presented that enabie the user to solve a myriad of problems, such as 
rms and average values, periodic waveform, inverse Laplace, Fourier, design of matching 
pods, attenuators, active filters, heat sinks, integrated circuit timer, zener diode regulator, and 
bipolar transistor circuits. 

Aii output is displayed on the video screen, but most programs con be easily modified so that 
the results are handled by a line printer, cassette tape, or disk. 

Appendix A lists all the programs discussed in this book along with their approximate memory 
capacities. Appendix B lists the standard values for resistors and capacitors, which are helpful 
for a number of the programs. ^"" 

This book is for the reader who has a good understanding of Level II BASIC, It was v/ritten pri- 
marily for the advanced computer user. 

Sams Softwgce Programs include 37 of the technical programs contained in this book. These 
tested, debugged, documented programs ore available on cassettes and con be used as 
stand-alone programs or as subroutines for more complex programs. See page 140 of this 
book for ordering information and more details about Sams Technical Software. 

Howard M. Berlin is an electrical engineer with the Chemical Systems Laborafory at Aberdeen 
Proving Ground, Maryland, He hos been an adjunct instructor in the Department of Electrical 
Engineering ot the University of Delavi/are. He has been primarily invoived in biomedicoi engi- 
neering research and physiologicai instrumentation. He has taught short courses for the Depart- 
ment of the Army, graduate courses at the Universitv of Deiaware, and short courses at several 
universities ond conferences. He istheouthorof a number of governmentoi reports and articles 
for scientific and amateur radio magazines. In addition, he is the author of the following books: 
The 555 Tinner Applications Sourcebook. With Experiments; Design of Active Filters, Witti Experi- 
ments; Design of Op-Amp Circuits, Witti Experiments; Design of Ptiose-Locked Loop Circuits, 
Witti Experiments; Guide toCMOS Basics. Circuits, & Experiments; and coauthor with Pobert T, Stone of Design of VMOS 
Circuits, Witti Experiments, He is a member of Sigma Xi. IEEE, and the Deiaware Academy of Medicine He is an active 
horn radio operator (W3HB). 
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